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SOFTWARE COMPOSERS 

Delta Development System, Model 1 

* Delta Board, seven socket backplane, 56K-word CMOS memory board, 
power /battery card, serial cable, portable Delta Ba>; and cmForth. 

* Fully assembled, tested, and ready to use with 90-dav warranty. 

* User manual and access to 24-hour user bulletin board support. 

SCFORTH 

* ForthSS Standard-like word set with a utility module. 

DELTA-C 

* Extended Smail-C programming language for the Delta Board. 

* On PC translates C to Forth tor upload and operation on Delta Board. 



The Delta Evaluation System $895 

• 4 MHz Delta Board with Novix NC4000 Forth Chip on board. 

• cmFORTH prograniming language interpreter and compiler in EPROM. 

• User manual, board schematic, and user bulletin board support. 

• 4K 16 bit words of static RAM and 4K words of EPROM. 

• 8 selectable 256 word data stacks and return stacks for multi-tasking. 

• 21 independently programmable single bit I/O ports. 

• 4 1/2" X 6 1/2" board with 72-pin edge-connector bus with all major Novix 
signals. 

• Delta Regulator Base with attached connector and single 5-volt wall 
mount power supply. 

• Reset switch and serial port on board with RS232 connector and cable. 

• 90 day warranty. 

• Fully assembled, tested, and ready to use. 

Additional Novix chips available for |195, 1-9 quantity. 
Software Composers is an authorized Novix Distributor 

SC-IOOOCPU Users Manual: *75 shipping/handling included in U.S. Covers 
Delta Board, Novi>; chip, and cmForth. Deductible -from price o-f Delta Board 
in event of purchase. PC clone terminal/disk server F83 so-ftware provided. 
Six month subscription to 24 hour user bulletin board. 

"I'm delighted to see Software Composers' board on the market. It provides 
incredible capability and versatility with minimal parts, size and price. An 
excellent introduction to the new generation of hardware and software," 

Chuck Moore, November 1985 

COMING SOON! 

SC-IOOOPBB Power /Battery Board 

* 4.5";;6.5"; compatible with Backplane and Evaluation System power supply. 

* Uses 4 D-size NiCd batteries with recharging circuitry. 

SC-IOOOPER Peripheral Board 

For product data and ordering information, write: 

Software Composers 
210 California Avenue #F 
Palo Alto, CA 94306 
(415) 322-8763 
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Symbol Table 

Simple; introductory tu- 
torials and simple appli- 
cations of Forth. 

Intermediate; articles 
and code for more com- 
plex applications, and 
tutorials on generally dif- 
ficult topics. 

Advanced; requiring stu- 
dy and a thorough under- 
standing of Forth. 



Code and examples con- 
form to Forth-83 stand- 
ard. 



Code and examples con- 
form to Forth-79 stand- 
ard. 



Code and examples con- 
form to fig-FORTH. 



Deals with new propos- 
als and modifications 
to standard Forth sys- 
tems. 
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XMODEM Tutorial 
by John S. James 

The public-domain XMODEM protocol has long been in widespread use for 
error-free data transfer among personal computers. Because of the various states 
in the execution of the program and their associated timeouts, it may not be ob- 
vious at first how to organize the algorithm gracefully in a structured language. 
This implementation is a tutorial on Forth programming and is also a useful, 
complete application. 

On-Line Documentation 
by John J. Wavrik 

The best form of documentation for a Forth application is the source code. F83's 
VIEW or LOCATE show the screen on which a word has been defined. Here is the 
same facility implemented for fig-FORTH, Kitt Peak VAX-Forth, MMS-Forth 
and MVP-FORTH. A great tool! 

Forth Resources via Modem 
by Gary Smith 

More Forth material than ever before is available on private and vendor- 
supported electronic bulletin boards and on commercial information systems. 
FIG members with modems and communications software have more oppor- 
tunities than ever before to expand their knowledge and their personal dialog with 
other Forth experts. Here's where to find them! 

Forth Source Formatter 
by John Konoplta 

The problem of neatly formatting source code is accentuated for Forth program- 
mers, who often must add code to the fixed size of one screen. The program 
presented here will take the most compact, confusing source code as input and 
will turn out a cleanly formatted listing with new lines for every colon definition, 
proper indenting for structured constructs and more. 

Dual-CFA Definitions 
by Mike Elola 

Decomposing functions is a critical part of Forth programming. Dual-CFA 
definitions provide the benefits of decomposed functions in situations where 
decomposition would not be possible normally. By first exploring more conven- 
tional Forth programming techniques, such as vectored execution, the author 
discusses various issues that showcase the advantages of dual-CFA words. 
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Machi™ 

Multi-tasking FORTH-83 Development Systems 
for 68000 and 68020-based 
microcomputers and industrial target boards. 

Machi is a FAST, 32-bit subroutine-threaded implementation of FORTH. 
All Machi systems include: 

• Unlimited multi-tasking~any number of backgroundAerminal tasks are allowed. 

• Local variables for readable, recursive, re-entrant programming. 

• Standard text files-Any text-only editor/word processor may be used. 

• A STANDARD Motorola 68000 assembler (infix) which supports 
fonward label references. 


Apple 
Macintosh^ 

$49.95 

$10 Demo Disk 
also avalial>i6 


Machi on the Mac features: 

20- 

EASY creation of stand-alone applications 

Complete toolbox support (including 15- 

Mac Plus routines) 

Macintalk speech driver support 

Redirection of 1/0 to serial ports/devices 5 - 

Graphics printing support 

80-bit SANE floating point 

68020 compatible 

Comes with Switcher/Edit and 400 page manual 












TML Mac ., 
„ , Macni r-/-M-i-rtj Neon 
Pascal FORTH 

Sieve Times fseconds 




Atari 

ST™ 

$59*95 

$10 Demo Disk 
also available 


Machi on the ST features: 

20 

EASY creation of stand-alone applications 
Full GEM and DOS support 15 - 
Integrated GEM editor 
68020 compatible 

Comes with 300 page manual 5 • 
Available July 15 


Mega- Machi Hippo C 

Sieve Times fsecondsl 


Commodore 
Amiga™ 


( $59.95 Available September 1986 ) 


Industrial 
Target 
Systems 


Machi In EPROM: (Available immediately on Gespac G-64 68OOO board) 

16K FORTH Kernel $500 
16K 68000 Assembler $500 
16K Dissassembler/Debugger $500 
Call for source licensing arrangements.... 

Executes sieve on 16MHz 68020 in 1 .3 seconds 


Palo Alto Shipping Company • P.O. Box 7430 • Menio Park, California 94026 

(800) 44FORTH - Sales • (415) 854-7994 - Support 
VISA/MC Accepted • Include S/H on all orders ($5 US/Canada, $10 overseas) • CA res. add 6.5% tax 
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Saddled With Benchmarks 

Dear Mr. Ouverson: 

Now that Machl (our Forth compiler) is 
becoming a rather efficient development 
system, we are somewhat concerned with 
the benchmarks that Forths are saddled 
with when comparing them to other lan- 
guages. The only sieves we've seen people 
use must be corrupt versions of those called 
"BYTE" and "Colburn" sieves. They are 
not only wrong (there are 1028 primes 
between zero and 8192, not 1899) but, 
judging from the stack manipulations, were 
perhaps rewritten by people who were un- 
familiar with, or unfriendly to Forth. Has 
someone pirated our benchmarks? 



When a person truly wants to find prime 
numbers (and, indeed, our customers are 
always asking us for the higher primes), 
he'd like to do it simply, efficiently and 
correctly. Could you please publish the 
correct "BYTE" and "Colburn" sieves, 
and this Forth-83 sieve as ones which do 
just that? 

Thank you, 



Terry Noyes 

Palo Alto Shipping Co. 

Menlo Park, California 



Public-Domain Floating Point 
and Double/Quad Precision 

Dear Marlin, 

Forth has gone too long without a com- 
plete, standard wordset for extended arith- 
metic functions! Instead of continually rein- 
venting the wheel with hardware-dependent 
math packages and spending time writing 
yet another version of D*, the Forth com- 
munity needs to expend its energy address- 
ing new horizons. 

In order to foster the rapid growth of a 
standard, I am placing riiy book, MVP- 
FORTH Integer and Floating-Point Math 
(MVP book series, volume three), in the 
public domain. This book contains a com- 
plete, machine-independent, high-level 
MVP-FORTH glossary and implementa- 
tion for thirty-two-bit integer math, sixty- 
four-bit integer math and thirty-two-bit 
floating-point math with transcendental 
functions. The book also includes as- 
sembler source code for critical words on 
popular CPUs, to give execution speeds 
comparable to other high-level languages. 

The math package included with the 
book has been stable and in active use for 
several years. The word definitions are 
similar or identical to many of the other 
proposed "standards." However, this 
wordset has the advantages of machine 
independence and public-domain imple- 
mentation. The book and source code on 
disk may be ordered from Mountain View 
Press. 

I think that a standard for Forth arith- 
metic will only emerge from the evolution 
of a public-domain implementation in com- 
mon use. I encourage anyone with com- 
ments on, or improvements to the imple- 
mentation described in my book, to write 
me in care of Mountain View Press. 

Phil Koopman 

North Kingstown, Rhode Island 



Dictionary Magic 

Dear Marlin: 

Here is a bit of magic for those who need 
to generate more dictionary space without 
reducing the number of options they are 
loading. 

The method requires that there be some 
space available elsewhere, large enough to 
be useful. I use what would otherwise be a 



DECinflL 



8192 CONSTANT size 

size SQRT 1+ CONSTANT fl icklimit < if you don't have SQRT, just use 4 / to be safe) 
URRIRBLE flags size UflLLOT 



primes < — number of primes) 
flags size 81 FILL 

e 

size 2 
DO 

flags I + Ce 
IF 

I f I i ck I i m i t < 



IF 



< does the primes once) 

< i n i t i a I i ze the orroy ) 

< prime counter) 

< range of numbers to check ) 

< see if I i s a pr i me ) 

C no need to try and f I i ck f I ags once 

you get past size's. 5, just keep adding 
up the primes) 



I 



< this is a prime. Used to increment the '•-loop) 
flags size + flags I + I + < range of addresses to tag) 

DO 

I CI DUP < flick flags at multiples of I) 

+LOOP 

DROP ( drop the I that was used for +LOOP) 
THEN 

1+ C increment the prime counter ) 

THEN 
LOOP ; 



How it works: Initialize an array to all ones. Start with the first prime number, which 
is two. Clear all bytes in the flags array that are multiples of two. Then do it for the 
threes. The fourth byte in "flags" is a zero, so skip to five. Since four is non-prime, 
all of its multiples were handled by another number, two in this case. You only have 
to continue this process up to the integer square root of the array size, since in this 
case 91*91 is not in the euray and the 91*90 spot was already zeroed by a previous 
prime number. If you dump the array, you'll see that bytes 2, 3,5,7, 11, 13, etc., are 
marked with ones, and the others have been zeroed. (While this program runs, it 
counts all the prime numbers it finds.) 
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FORTH 

The computer 
language for 

increased. . . 
EFFICIENCY 

reduced. 

MEMORY 

higher. 

SPEED 

MVP-FORTH 
SOFTWARE 

Stable . . .Transportable . . . 
Public Domain . . .Tools 

MVP-FORTH 
PROGRAAAMER'S KIT 

for IBM, Apple, CP/M, 
MS/DOS, Amiga, Macintosh 
and others. Specify computer. 
$175 

MVP-FORTH PADS, 

a Professional Application 
Development System. Specify 
computer. 
$500 

MVP-FORTH EXPERT-2 
SYSTEM 

for learning and developing 
knowledge based programs. 
$100 

Word/Kale, 

a word processor and 
calculator system for IBM. 
$150 

Largest selection of FORTH 
books: manuals, source listings, 
software, development systems 
and expert systems. 

Credit Card Order Number: 

800-321-4103 
(In California 800-468-4103) 

Send for your 

FREE 
FORTH 
CATALOG 

MOUNTAIN VIEW 
PRESS 

PC BOX 4656 
Mountain View, CA 94040 



fifth disk buffer. Four buffers are adequate 
— so much so that I am considering a 
reduction to three of them. 

Here is an example of how to use the 
highest-numbered disk buffer for diction- 
ary space. 

First, crowd (yes, crowd) as many defini- 
tions as possible into a screen. I used all of 
the system variables and constants. Test 
free space (so @ here - .) and compile. 
Retest free space to find out how many 
bytes are required for the compiled screen. 
For a 1024-byte buffer, I wouldn't accept 
anything less than 975 bytes. 

Second, set up to load the screen as soon 
after the kernel as possible, followed by all 
of the other screens which you routinely 
load. For example, suppose you load 
screens 4-10 before each session, and that 
the new screen is screen 11. Your loading 
screen (boot screen?) would contain the 
following: 



HERE LIMITS @ B/BUF 

- DUP LIMITS I DP I 

11 LOAD DP I 4 10 THRU 



There are ways to enhance this proce- 
dure. In my case, screens 4-11 would be 
coming in as a binary image. To make 
screen 1 1 an instant load, I first MOVEd the 
contents of the buffer that screen 11 was 
compiled into back to screen 1 1 as a binary 
image. I then altered the loading screen to 
reverse the process, MOVEing the image on 
screen 1 1 into the buffer area, followed by 
my BLOAD of the remaining options. It 
works just great. 

Sincerely, 

Gene Thomas 

Little Rock, Arkansas 



A Screen in the Dark 

Dear Mr. Ouverson, 

In writing words to read the clock on my 
AST board from F83, I ran into all the 
problems Laughing Water referred to in his 
letter, "You Screen, I Scream" (VII/2). 
Adding definitions to the existing code 
immediately filled up a screen, then what 
do you do? Also, keeping shadow screens 
lined up is difficult. 

In good Forth programming practice, 
each word should do one job and do it well. 
Then the next higher level word does not 
have to concern itself with the details of 



how the lower-level word works. This prin- 
ciple of hiding complexity is fundamental to 
modular programming. 

Then there is the Forth editor! It hides 
nothing. The programmer must keep track 
of screen numbers, line numbers, line 
length and a host of other items. If a screen 
is full and an additional definition is 
needed, the screens must be moved manual- 
ly. Any reasonable text editor will insert 
text anywhere in a file, moving the rest 
down to make room. Also, my screen is 
eighty columns wide and it is all too easy to 
enter a definition that is sixty-five charac- 
ters long and lose the last word. 

I propose that the editor and the loading 
of definitions be modified to hide the IK 
screen limit. The Forth editor should work 
like a standard text editor. Comments and 
definitions can be entered anywhere in the 
file. To maintain compatibility with block- 
oriented systems such as polyFORTH, each 
IK block could be treated like a page. User 
variables could be defined that would limit 
the maximum range the editor could use, to 
avoid overwriting the wrong blocks. In a 
system that runs under a host operating 
system, such as F83 under DOS, these 
"pages" or screen numbers would maintain 
compatibility with the view command. The 
programmer does not have to keep track of 
these screen numbers while programming. 

Since this is a major change to the current 
Forth editor philosophy, it may not be 
acceptable. May I suggest that at the mini- 
mum, an editor should be free format, lines 
terminated with CR-LF and not displayed 
with line numbers. Even if restrained to the 
IK limit, this would be much better than the 
standard Forth editors. If implemented 
with a multi-line move command with a 
large enough buffer to hold a definition 
when it becomes necessary to move it to the 
next screen, it would be a great improve- 
ment. Then a few words would automate 
the screen copy or convey, and would move 
screens as required to make space for new 
definitions. 

If any FD reader has a program to read 
and compile F83 Forth programs from a 
DOS text file for the IBM-PC, please write 
to me. I would also like to know if anyone 
has implemented a Forth editor that uses 
the IBM-PC cursor keys and produces a 
straight ASCII text file or the screens as I 
have outlined above. 



Sincerely, 

Ramer W. Streed 

North Mankato, Minnesota 
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An invitation to attend the eighth annual 

FORML CONFERENCE 

The original technical conference 
for professional Forth programmers, managers, vendors, and users. 

Following Thanksgiving 
November 28 - 30, 1986 

Asilomar Conference Center 

Monterey Peninsula overlooking the Pacific Ocean 
Pacific Grove, California 



Theme: Extending Forth towards the 87-Standard 

FORML isn't part of the Standards Team, but the conference is an opportunity to present 
your ideas for additions to the Forth standard. Papers are also welcome on other Forth 
topics. Meet other Forth professionals and learn about the state of the art in Forth 
applications, techniques, and directions. 

To get your registration packet call the FIG Business Office (408) 277-0668 
or write to: FORML Registration, Forth Interest Group, P. O. Box 8231, 
San Jose, CA 95155. 

Registration: $275 DouWeRoom 

$ 3 25 Single Room (Limited availability) 
$ 1 50 Non-conference guest (Share a double room) 
Resistration includes room, meals, conference materials, and social events. 

Registration and abstracts are due 
September 1, and final papers are due 
October 1, 1986. Make your 
reservation now and get your 
registration packet. 

Space is limited, 
advance registration 
is required. 
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Conditional Teaching 

Dear Marlin, 

This letter is inspired by Ronald Apra's 
article on teaching Forth. I've been teaching 
Forth for several years. My situation is 
different from Mr. Apra's: I'm teaching 
university students who already know some 
other language. Several years ago, however, 
my wife and I worked with some elementary 
school students in BASIC, and she has also 
taught BASIC and Pascal to adults. 

Conditional structures, no matter what 
the language, create a problem for begin- 
ners. A student's first language is a barrier. 
Teaching is often inefficient because we are 
trying to give students the answers to ques- 
tions they have never asked. The question 
in the students' minds is, "Why are we 
doing this?" My wife suggested to a group 
of upper elementary students that they 
write programs to do something they would 
like to do. One girl wanted an "address 
book." One boy wanted to write a video 



tennis game (it was suggested that he first 
try to get a "ball" to bounce back and forth 
on the screen). Both of these students 
accomplished their goals. In the process, 
they had to deal with "How can we do 
this?" and, as you'd expect, they both came 
to understand looping and conditional 
structures quite well. The teaching of 
computer programming at all levels would 
benefit by the production of a collection of 
interesting tasks that develop a need for 
certain constructs. 

"Keep it simple" is indeed a hallmark of 
Forth. Forth is perhaps the only language 
whose implementation is simple enough 
that the language can be learned semanti- 
cally instead of syntactically. The major 
unifying principle is "action": each word 
has an action which it performs when the 
word is executed. This unifying principle 
explains why it is desirable that arguments 
on which the word acts be available before 
it executes (i.e., reverse Polish syntax). The 
conditionals can be understood in terms of 
their action during compilation. A decom- 



piler is an important tool at this stage. If 
students already know why an if . . . then 
construct is needed, and they see how if 
compiles a conditional branch and then 
resolves the displacement, they automati- 
cally understand the Forth syntax, fig- 
FORTH, it should be noted, is advan- 
tageous for this approach because system 
words (like obranch) are named and full 
word names are stored (faciUtating decomp- 
ilation). A student who learns Forth in this 
way develops a mental image of what each 
word does — and this eliminates the need to 
memorize syntax rules. 

I repeat again that I'm working with 
university students with prior programming 
experience. I'm not sure how far "down" 
this approach would extend. I am sure, 
however, that the conceptual simplicity 
which Forth offers is an important com- 
ponent of its power. I would hate to see 
"progress" in the direction of words doing 
a lot of "under the table" manipulation, 
even if this would provide a superficial 
simplicity in syntax. I do see potential in 

(Letters continued on page 33) 



THE TOOLS GROUP 

66230 Forth Street 

Desert Hot Springs, CA 92240 

619/329-4625 



Do you use Forth professionally? 

Do you ever wish that you were 
working in an organization large 
enough to have a full time software 
tools group? 



The Tools Group subscription support service is available to any Forth programmer. 
Tools are available for the Z80 and MC680xO environments, running either CP/M 
2.2, TPM III, or GEMDOS. iAPX 8x/28x and NS32x32 versions will be ready soon. 

Access to the Tools Group programmers and library is through a Hartronix multiuser 
bulletin board system. Soon, the service will be available world wide through an X.25 
based public data network at very low cost. 

The Tools Group library is extensive, including tools like a 64 bit IEEE floating point 
package, transportable code between different operating systems, ASCII file support, 
automatic library manager, and much more. If the tool you need is not in the library, 
we will work with you to develop it. 

Our motives are simple. We enjoy building real tools for real programmers. We want 
to help you. For a small annual fee, you may freely use our tools without royalties. 

You don't need to tell anyone that you have a tools group - you can just let them think 
you are Superprogrammer. 
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XMODEM Tutorial 



John S. James 
Santa Cruz, California 



The public-domain XMODEM (MODEM7) 
protocol has come into widespread use for 
error-free data transfer among personal 
computers. It has other commercial uses 
besides, although it is less than ideal for 
communicating with mainframes over packet- 
switching networks, a task for which it v/as 
not designed. We are publishing this im- 
plementation as a tutorial on Forth pro- 
gramming, and also for its practical useful- 
ness. It is not the only XMODEM imple- 
mentation published in Forth (see references 
below). 

In addition, this two-part article will 
touch on the philosophy of designing soft- 
ware modules for effective use in libraries. 
We will also look at compatibility among 
Forth systems, and at the marketing issues 
raised by the question of why this author 
uses the public-domain F83 implementation 
as a publication language, while using pro- 
prietary systems purchased from others for 
many software-development projects. 



Overview 

Implementing XMODEM is not as easy 
as might be assumed. Because of the 
various states in the execution of the pro- 
gram and their associated timeouts, it may 
not be obvious at first how to organize the 
algorithm gracefully in a structured lan- 
guage. 

Concerning timeouts, the program should 
be less strict than the traditional XMODEM 
when it is used for communicating with 
mainframes (e.g., services like Compu- 
Serve, which supports XMODEM). Since 
these longer timeout values probably will 
not interfere with micro-to-micro commun- 
ication, except to cause some additional 
delay in recovering from certain errors, we 
have used them here, with the original 
XMODEM timeouts in comijients. 

One challenge for this particular imple- 
mentation was to make the CRC option 
efficient in high level. CRC (cyclic redun- 
dancy code) was not part of the original 
XMODEM protocol, but was added later 
for improved error control. The problem 
for us is that the CRC algorithm involves 
much bit shifting, and standard Forth 
doesn't include efficient shifting. Ordinari- 



ly, one would write a code word to do the 
shifting, but for this example we want to 
avoid using code in order to run on dif- 
ferent computers. So we used some pro- 
gramming tricks, explained below, to imple- 
ment the CRC efficiently. 

This software accumulates the CRC while 
the characters are coming in, so it must 
keep up with the characters. But note that 
the program could be designed to not have 
to keep up: XMODEM always sends blocks 
with 128 bytes of data, and reasonable 
delays between the blocks are allowed. If 
you have a very slow computer and a very 
fast modem, you might need to change this 
program to simply store the characters as 
they come in, then compute the error check 
later. The price would be a small but 
noticeable slowdown in receiving files. 

One more challenge in implementing 
XMODEM is to make it work gracefully 
with the different variations which exist. 
Some existing implementations do not talk 
to some others, mainly due to the timeout 
differences mentioned above. 



What is XMODEM? 

XMODEM was developed by Ward 
Christensen, and has been extended by 
others. It has been used on bulletin boards 
since around 1980. 

In XMODEM, all data is transmitted in 
128-byte blocks. Each block also contains a 
few bytes of header and error-test informa- 
tion. The receiving program must test each 
block, and send either an ACK (acknow- 
ledge, ASCII 06) to indicate a correct block 
received, or a NAK (negative acknowledge, 
ASCII 21 hex) to indicate error. If it sends 
the NAK, the sending program will retrans- 
mit the block. 



Each block contains: 

• A start-of-header byte, ASCII 01. 

• The record number mod 256, starting at 1 . 

• The ones complement of the record 
number. 

• 128 bytes of data. 

• CRC high and low bytes (or a one-byte 
checksum, if CRC is not used). 



The conversation between the computers 
is receiver driven. This means the sender 
doesn't do anything until asked by the 
receiver (except to time out eventually, if 
the receiver doesn't work properly). 

To start the process, both computers 
must be made ready, one to send and the 
other to receive. At first, nothing happens. 
Then the receiver times out, because it 
failed to get any record; when it times out, 
it sends a NAK. The NAK tells the sender to 
retransmit — in this case, to transmit the 
first record. The receiver ACKs or NAKs it; 
the transfer process has now started. (If 
CRC is used, the receiver must send a C the 
first time — ASCII 43 hex — instead of 
NAK, in order to tell the sender to use 
CRC. In either case, the receiver doesn't 
actually have to wait for the first timeout, 
but can send the C or the NAK earlier. 
Some programs try C a few times, and if the 
sender doesn't respond, they try NAK, in 
case the sender doesn't support CRC.) 

After the file has been transmitted, the 
sender sends a single character, EOT (end 
of transmission, ASCII 04). If the receiver 
gets it, it sends an ACK, and the file 
transfer is finished. 



Unusual Situations 

If a NAK gets garbled, the sender won't 
do anything — until the receiver times out 
and sends another NAK. 

Sometimes an ACK gets garbled. Then 
the sender will re-transmit a valid record. 
The receiver, which always tests the record 
number, throws away the extra copy. 

The sender should not treat any non- 
ACK as a NAK. Especially it should not 
treat control-S or control-Q, which the 
receiver may send to ask for a pause in 
transmission, in this way. If the sender does 
honor control-S and control-Q (not strictly 
necessary, since retransmission can take 
care of most problems), the control-Q to 
restart transmission may occasionally get 
lost. Both sides can be designed to handle 
this case, even if the other side would wait 
forever, but we haven't done so in this 
tutorial. 

If the record number on a received block 
is neither the expected one nor a repeat of 
the previous one, a fatal synchronization 
error has occurred, and transmission must 
be terminated. A transmission error in the 
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BRYTE I 
FORTH I 

INTEL I 
8031 I 

1 MICRO- 
ICONTROLLERl 




FEATURES 

— FORTH-79 Standard Sub-Set 
—Access to 8031 features 
—Supports FORTH and machine 

code interrupt handlers 
—System timel<eeping maintains 
time and date with leap 
year correction 
—Supports ROM-based self- 
starting applications 



COST 

1 30 page manual — $ 30.00 
8K EPROM with manual— $100.00 

Postage paid in North America. 
Inquire for license or quantity pricing. 



Bryte Computers, Inc. 

P.O. Box 46, Augusta, ME 04330 
(207) 547-3218 
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1 A : XMODEM . 

Compat.iblllty and load screen 



2- 



These may be needed for other Forth &3 ayatems , not for 
: TRUE -1 ; 
: FALSE O ; 

: KEY? ?TERMINAL ; \ This word Is not part of Forth 
Define different spelling of NEXT for some assemblers 
ASSEMBLER DEFINITIONS : NEXT NEXT, ; FORTH DEFINIT 



17 -86 J J 
F83. 

as atd 
IONS 



Load the aource code 

XX 13 2 DO I . I LOAD LOOP 



XX 
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# 2 A: XMODEM. 

S Port I/O (IBM-PC-compatible BIOS) 
HEX 

CODE CALL-SERIAL \ xl n -- x2 Aaynchronoua DOS call 

DX POP AX POP 14 INT AX PUSH NEXT END-CODE 

: CALL-PORTl \ xl -- x2 Call to Port 1 

O CALL-SERIAL ; 

: MINITIALIZE \ nspeed -- Initialize port 

\ nspeed = 300 or 120O, no parity, 1 stop bit, 8 data 
12C ( '300' in hex ) = IF 43 ELSE 83 THEN 
CALL-PORTl DROP ; \ Easily extended to 2400 

: MWRITE V c -- Write one character to modem 

100 » < AH«1 ) CALL-PORTl DROP ; 

DECIMAL 



2-17-86JJ 



bits 



# 3 a: XMODEM. 

^ Read a character, using variable timeout 2-17-86JJ 
HEX 

: HREAD \ ntimeout c Read one character from modem 

-1 < Default, returned if timeout ) SWAP 1 MAX O DO 
30O CALL-PORTl ( Status ) lOO AND IF \ Data ready 

DROP 200 CALL-PORTl i Data ) FF AND LEAVE 
THEN 

9 DO LOOP \ Delay - adjust for your CPU 
LOOP ; 
DECIMAL 
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# 4 a: XMODEM. 

\ Save all modem I/O, as a record of the session 2-17-a6JJ 
4000 CONSTANT SAVE-SIZE \ Size of the terminal save area 
CREATE TSAVE SAVE-SIZE ALLOT \ Save terminal session for test 
VARIABLE SAVE-ADDR \ Pointer in the save area 
: SAVE-INIT TSAVE SAVE-ADDR t TSAVE SAVE-SIZE O FILL ; 

SAVE-IMIT \ At compile time, for convenient testing 
: UMIN S ul u2 -- u Unsigned minimum 

OVER OVER U< IF DROP ELSE SWAP DROP THEN ; 
: SAVE \ c -- Save a character in memory 

SAVE-ADDR 9 CI SAVE-ADDR S 1» TSAVE SAVE-SIZE » 1- UMIN 

SAVE-ADDR I : 
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block number will not cause this situation, 
because the header number and its ones 
complement must correspond; if they 
don't, the record will be discarded im- 
mediately, before being checked for the 
fatal error. 

Timeouts and retries must keep either 
computer from hanging indefinitely, no 
matter what the other does or doesn't do. 
XMODEM specifies that the timeout be- 
tween blocks is ten seconds, and within a 
block the timeout between characters is one 
second. (We use twenty seconds and ten 
seconds respectively, as recommended for 
CompuServe, to assist communication with 
busy mainframes over packet-switched net- 
works, where delays of over a second are 
common.) If an error occurs, it should be 
retried for a total of ten times before the 
program gives up. 



Using the Code 

Part I of this two-part article implements 
the heart of the process. This code lets you 
receive a record, using the CRC. (The code 
presented here also includes a dumb-termi- 
nal program, named T, to let you log on to 
the remote computer and do whatever is 
necessary to tell it to start sending a file 
using XMODEM.) 

Before describing how the code works, 
we'll explain how to use it. 

(1) Make sure it compiles. The code runs on 
the public-domain F83 implementation of 
the Forth-83 Standard; and screen 1 con- 
tains some simple name changes to adapt it 
to PC/Forth, a Forth-83 Standard imple- 
mentation from Laboratory Microsystems, 
Inc. These changes in screen 1 may apply to 
other Forth-83 Standard systems also. 

If your system has a different assembler, 
the word call-serial may need to be re- 
written; or perhaps your system already has 
such a word. 

(2) If you have a different microprocessor, 
or have one of the few semi-PC-compati- 
bles which don't support the BIOS calls, 
you will have to rewrite minitialize, mread 
and MWRITE for your equipment. (Note that 
these words actually refer to the port, not 
the modem.) Your modem too may need 
some initializing — for example, a dial 
command and the phone number to dial — 
but with most modems you can provide 
these manually by simply typing the charac- 
ters after you have executed the dumb- 
terminal program and are talking to the 
modem. We didn't need to build the 
modem's initialization into the program, in 



this example — fortunately, since there are 
many incompatible modems. 

You might want to change the speed from 
300 to 1200, in screen 5. 

(3) When you get a good compile, execute 
T, the dumb- terminal program. Now you 
are talking to the modem. 

If the system seems to have crashed, it's 
probably because the modem isn't echoing 
your characters or saying anything else back 
to you. You might type a control-Z, which 
exits from the dumb-terminal program, to 
make sure you can get back to Forth in 
order to check that the program hasn't 
really crashed. 

Get back into the terminal mode, and use 
whatever character or sequence your mod- 
em needs to get its attention and into 
command mode. Usually it's possible to 
talk to the modem and get something back 
from it — an "OK," a status report or 
whatever — before even connecting the 
telephone. This way you can make sure that 
everything is working so far, before intro- 
ducing the added complexity of the remote 
computer. 

(4) Now use the terminal program to talk to 
a remote computer. Most modems these 
days are auto-dial — you can type in the 
phone number as part of a command. In 
either case, follow the instructions for your 
particular modem (often easier said than 
done). 

(5) To test the XMODEM record-receive 
software, call up a bulletin board or a 
service which supports XMODEM. Do 
whatever commands are necessary to tell it 
to start sending a file with XMODEM. 
Note that for testing this code (in Part I of 
this article), you need to call a system which 
can support the CRC error check. (Part II 
will include code for the simple checksum, 
also.) 

If you use CompuServe or a similar 
system for the test, make sure to ask for a 
"text," not "binary" file. Many main- 
frames have a thirty-six-bit word and nor- 
mally store text in seven bits per character; 
so if they must store eight bits, as when 
saving object programs for micros, they use 
a special translation such as Intel hex for- 
mat, which will look like garbage if you 
receive it. 

Once the remote program is in XMODEM 
and waiting to send data, you have a rea- 
sonable timeout period, probably at least a 
minute, to ask it to start. Get out of the 
dumb-terminal program and back to Forth 
with the control-Z. You're still online with 
the remote computer, and can execute T 
again later to get back into the terminal 
mode. 



UBZ FORTH 



* FORTH-83 

compatible 
*32 bit stack 
*l\/lulti-tasl<ing 
*Separate lieaders 
*Full screen editor 
*Assembler 
*Amiga DOS support 
*lntuition support 
*ROM kernel support 
^Graphics and sound 

support 
*Complete 

documentation 
'Assembler source 

code included 
'Monthly newsletter 



$85 



Shipping included 
in continental U.S. 
(Ga. residents add sales tax) 

(404)-948-4654 



(call anytime) 

or send check or money order to: 



UBZ Sa^^jCwane 

395 St. Albans Court 
Mableton, Ga. 30059 



•Amiga is a trademark for 
Commodore Computer. UBZ FORTH 
is a trademark for UBZ Software. 
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FORTHkit 

Assemble a 4 Mips 
Computer ! 

PARTS 

4MHz Novix NC4000 
4x6" mother-board 
Press-fit sockets 
2 4kx8 PROMs 

INSTRUCTIONS 

cmFORTH listing 
Application Notes 
Brodie on NC4000 

ASSEMBLY 

Buy 6 RAMs 
Misc. parts 
Press 360 sockets 
Soldeer 3 capacitors 
2 resistors 
Attach 200mA @ 5V 
RS-232 cable 
Insert 1 1 chips 

Program host as 

terminal/disk 
(1 screen of Forth) 

LEARN 

Modern technology 
Interface design 

EXPLORE 

High-speed Forth 
On-board interfaces 

• 16-bit parallel 

• video 

• floppy 

• printer 
Plug-in interfaces 

4 pin/socket busses 
Battery power (6V) 

$400 

Inquire for details 

Chuck Moore 

COMPUTER COWBOYS 

410 Star Hill Road 
Woodside, CA 94602 
(415) 851-4362 



To start the remote system, send the letter 
C (ASCII 67 decimal). Since the data may 
start coming quickly, the command to 
receive it should be on the same line, as in 

67 MWRITE XGET 



X6ET is a short test word defined on 
screen 12. It prints the number of charac- 
ters read (should be 133), and a flag 
(O = good, 1 =end-of-file, 2 = an error such 
as too few characters or bad CRC). 

The record transmission will take a little 
over one second at 1200 bps, four seconds 
at 300. If everything worked, xget will 
print 133 and zero. Dump some bytes from 
DATA to see if you got the start of header 
(01), the record number (01), its ones com- 
plement (FE hex) and the data. Or just use 
DATA 3 + 128 TYPE to See the text. (Some 
Forth systems will type carriage returns and 
line feeds as control characters, others will 
perform them instead.) 

If you got 133 bytes but an error, it is 
possible that the software is working prop- 
erly and XMODEM detected a transmission 
error, as it should. If it seemed that nothing 
happened, wait half a minute or so for any 
possible timeout, and then check the results 
from XGET. If one or two characters are 
missing, there may have been transmission 
errors. If no characters were received, 
perhaps the remote system does not support 
CRC; try 

<NAK> XWRITE XGET 

and see if 132 characters are received; there 
will be timeout and an error because the 
code given here does not support the simple 
checksum, only the CRC. 
To try for another record, use 



ACK XGET to get the next one, or 

NAK XGET for retransmission of the last 
record received. 



There is another way to check what has 
happened. The dumb-terminal program 
keeps a record of your session — all charac- 
ters sent both ways — at tsave. If things 
don't work, you can dump that data. 

(6) To end the test, it's helpful to get back 
to the terminal mode and log off the remote 
system. But if you haven't reached the end 
of file, it may be hard to get the sending 
program to abort the transmission. If noth- 
ing else will do, unplug the phone. 



How the Code Works 

Screens 2 and 3 provide the low-level I/O 

— MINITIALIZE, MREAD and MWRITE — tO 

initialize, and to read and write characters. 
As explained above, you may need to 
rewrite these words. 

Note that mread accepts a timeout value 
in milliseconds. You may want to adjust the 
delay loop in screen 4 to make the values 
relatively accurate for your computer. 
There are better ways to handle timing, of 
course, but we kept it simple for this 
tutorial. 

Screen 4 defines words to save a record of 
the session — a copy of all I/O — in a 
memory area which can be examined later 
to trace problems. 

Screen 4 illustrates that comparisons of 
addresses must be unsigned — using the 
Forth-83 Standard word u<. Otherwise, 
the result would be correct only if both ad- 
dresses were on the same side of the 32K 
boundary (in a 64K system). A program 
could work perfectly until a recompilation 
just happened to cause a buffer to span that 
boundary. So instead of using min to get a 
minimum, as part of the process of prevent- 
ing the trace of the session from overflow- 
ing its save area, we defined Umin, an 
unsigned minimum, and used it instead. 

Screen 5 implements a dumb-terminal 
program, t. We use a short name to make it 
easy to get into and out of terminal mode 
(control-Z gets out of the terminal mode 
and back to Forth), t includes the machin- 
ery to save the record of a session — all 
characters sent either way. Note that save- 
INIT is executed at compile time; otherwise it 
would be easy to forget when testing. In a 
product, T would execute save-init; but 
here that wouldn't be appropriate, because 
during testing you should be able to get into 
and out of terminal mode without wiping 
out the record of the session so far. 

Screen 5 also redefines mread and 
MWRITE, to create new versions which save a 
copy of the data they transfer. Note that we 
could not use these redefinitions in T, 
because T is constantly doing mread which 
times out; it would fill the session-save area 
with garbage. 

Screen 6 sets up constants and variables 
for the XMODEM code itself. 

Screen 7 does the "Une purge" — waiting 
until the sender stops transmitting — which 
XMODEM requires before a NAK, to 
avoid possible confusion. 

Screens 8 and 9 are the hard part — 
computing the CRC, and doing so efficient- 
ly in high level. 

Here is the algorithm. Start with a 16-bit 
accumulator set to zero. Take the 128 data 
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Scr # 5 a: XMODEM. 

\ Duab terminal, for teat. 'T to run, control-Z exit 2-17-a6JJ 

1 : T \ - - Dumb terminal program 

2 300 MINITIALIZE \ 300, 1200. or other 

3 FALSE \ Loop control - set to TRUE to exit 

4 BEGIN 

5 O HREAD \ No need £or timeout delay here 

6 DUP -1 • IF DROP ELSE 127 AND DUP SAVE EMIT THEN 

7 KEY? IF \ If key typed, send it. unleas control-Z 
e KEY DUP 26 = IF DROP DROP 1 \ Exit 

9 ELSE DUP SAVE MWRITE THEN 

10 THEN 

11 DUP UNTIL DROP ; 
12 

13 \ Apply SAVE to later I/O - can't use this in T, due to timeout 

14 : MREAD HREAD DUP SAVE ; 

15 : MWRITE DUP SAVE MWRITE ; 



# 6 a: XMODEM. 

\ XMODEM variables and constants 
VARIABLE ARECORD 
VARIABLE NCHAR 
VARIABLE XTIMEOUT 
VARIABLE DATA-BYTE 

1 CONSTANT <SOH> 

4 CONSTANT <EOT> 

6 CONSTANT <ACK> 
21 CONSTANT <NAK> 
lOOOO CONSTANT CTIMEOUT 
2000O CONSTANT BTIMEOUT 
\ In traditional XMODEM, 

lOOO CONSTANT PTIMEOUT 



2-17-a6JJ 

\ Address of 133-byta area 
\ Number of characters transmitted 
V Timeout value for read, in milliseconds 
\ Used in CRC 



V 10 sec, timeout between characters 
\ 20 sec. timeout between blocks 
above timeouts are 1 sec and 10 sec 
\ Try 1 second to purge the line 
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Scr # 7 a: XMODEM. 

\ Purge the line (wait for transmission to stop) 

1 : XPURGE \ -- Wait till transmission stops 

2 BEGIN 

3 PTIMEOUT MREAD \ Walt till no more characters 

4 -1 = UNTIL i 
5 

6 
7 

a 



2-17-a6JJ 



DASH, FIND 



Our company. DASH. FIND & ASSOCIATES, 
is in the business of placing FORTH Program- 
mers in positions suited to their capabilities. 
We deal only with FORTH Programmers 
and companies using FORTH. If you would 
like to have your resume included in our 
data base, or if you are looking for a 
FORTH Programmer, contact us or 
send your resume to: 

DASH. FIND & ASSOCIATES 

808 Dalworth, Suite B 
Grand Prairie TX 75050 
(214) 642-5495 



Committod to Excellence 



Scr « 8 A: XMODEM. 

\ Compute CRC 2-17-86JJ 

1 HEX 

2 : IBIT V xaccuml mask -- xaccum2 Apply 1 bit of DATA-BYTE 

3 SWAP < Save mask > DUP 8000 AND IF \ Bit to shift out 

4 DUP ♦ \ Shift left 

5 SWAP DATA-BYTE 6 AND ( Apply mask ) IF 1* THEN \ "Shift" 

6 1021 XOR \ CRC polynomial 

7 ELSE \ Same thing, only don't do the CRC 
a DUP ♦ 

9 SWAP DATA-BYTE 8 AND IF I* THEN 

10 THEM ; 
11 
12 
13 
14 

15 DECIMAL 
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TOTALCONTROL 

with LMI FORTH" 



For Programming Professionals: 

an expanding family of 
compatible, high-performance, 
Forth-83 Standard compilers 
for microcomputers 

For Development: 

Interactive Forth-83 Interpreter/Compilers 

• 16-bit and 32-bit impiementations 

• Full screen editor and assembler 

• Uses standard operating system files 

• 400 page manual written in plain English 

• Options include software floating point, arithmetic 
coprocessor support, symbolic debugger, native code 
compilers, and graphics support 

For Applications: Forth-83 Metacompiler 

• Unique table-driven multi-pass Forth compiler 

• Compiles compact ROMable or disk-based applications 

• Excellent error handling 

• Produces headerless code, compiles from intermediate 
states, and performs conditional compilation 

• Cross-compiles to 8080, Z-80, 8086, 68000, 6502, 8051, 
8096, 1802, and 6303 

• No license fee or royalty for compiled applications 

For Speed: CForth Application Compiler 

• Translates "high-level" Forth into in-line, optimized 
machine code 

• Can generate ROMable code 

Support Services for registered users: 

• Technical Assistance Hotline 

• Periodic newsletters and low-cost updates 

• Bulletin Board System 

Call or write for detailed product information 
and prices. Consulting and Educational Services 
available by special arrangement. 



urn 



Laboratory Microsystems Incorporated 

Post Office Box 10430. Marina del Rey, CA 90295 
Pfione credit card orders to: (213) 306-7412 



Overseas Distributors. 

Germany: Forth-Systeme Angelika Flesch, Titisee-Neustadt, 7651-1665 
UK: System Science Ltd., London, 01-248 0962 
France: Micro-Sigma S.A.R.L., Paris, (1) 42.65.95.16 
Japan: Southern Pacific Ltd., Yokohama, 045-314-9514 
Australia: Wave-onic Associates, Wilson, W.A., (09) 451-2946 



bytes, and shift each bit (high bit first) of 
each byte into the accumulator. Throw 
away anything shifted out of the accumu- 
lator — but whenever a 1 bit is shifted out, 
exclusive-or the accumulator with the magic 
number 1021 hex (a number specified in the 
CCITT CRC-16 standard). 

We will do this with the 128 data bytes as 
they come in. The algorithm also requires 
two zero bytes to be put through at the end. 
The final value in the accumulator should 
match the CRC bytes which were transmit- 
ted. 

How do we do all this efficiently without 
an efficient shift — except a left shift by 
adding a number to itself, which doesn't 
even keep track of anything shifted out? 

This program keeps the accumulator on 
the stack, update-crc, on screen 9, takes 
advantage of the fact that the data byte 
need not be physically shifted, if eight 
different masks are applied to see if there is 
a bit in the position from which it would 
have been shifted out. If so, a bit is simply 
added to the accumulator (after the ac- 
cumulator has been "shifted" by adding to 
it a copy of itself). The i -f in ibit causes the 
effect of shifting a 1 into the accumulator. 

To get around the fact that + doesn't 
keep track of overflow, simply test the high 
bit of the accumulator with sooo and (hex) 
before adding to itself. 

The result of this test needs to be used 
later — after the rest of the work on the 
accumulator. To save a little time, 1BIT 
doesn't store that result, but instead has 
parallel code sequences — in effect, "stor- 
ing" the bit shifted out in the control of the 
program itself. 

In screen 9, GET-CRC puts only the 128 
data bytes (of the 133 bytes transmitted) 
and the two required zeros into the CRC. 
(We don't actually use get-crc here, since 
we accumulate the CRC while the charac- 
ters are being received; but the word can be 
handy for testing.) 

Note that crc-bad? in screen 9 picks up 
the transmitted CRC byte-by-byte, not with 
@, to avoid byte-order dependency which 
would cause the program to fail on some 
CPUs. The rule is that @ should not pick up 
what I did not put down; c@ is always okay, 
however. Forth programmers seldom have 
to worry about byte order — unless the data 
has come in from another computer, as 
here. 

The rest of the code is fairly straightfor- 
ward. XREAD reads n characters, or until 
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timeout, xcheck tests the data received. 
XGET, ACK and nak are convenient test 
words to run from the terminal. 

Notes on the Code 

The code example will not work with 
some external modems due to RS-232 in- 
compatibilities. MREAD and MWRITE will 
timeout in one second and not transfer any 
data. You may be able to avoid the problem 
by setting switches on the modem, or by 
using a special cable. 

Or you could patch mread and mwrite to 
bypass the operating system and access the 
port directly. Replace the definition of 
mwrite with: 

3F8 PCI 

where PCI writes one byte to a port. In 
mread, replace 200 call-porti with 3F8 
PC®. (Some systems may need one of these 
patches without the other, or may need a 
more elaborate mread.) 

Also note that the crude dumb terminal 
program T may lose characters between lines, 
while the screen is scrolling. XMODEM is not 
affected, however; the dumb terminal is 
used only to navigate through the remote 
system to get its XMODEM started. We 
chose not to complicate the article with the 
buffered version of a word used only for 
testing. 



Discussion — Forth Libraries 

I am implementing a Forth library system 
to allow developers to use off-the-shelf 
modules (see "Forth Component 
Libraries," reference below). The code here 
does not use the library facilities, since they 
are not yet available; but this code was 
designed to be adapted and used in the 
library. 

The library will hide the internals. It will 
show the XMODEM words to the outside 
world on three different levels. The low 
level will be minitialize, mread and mwrite 
— not really XMODEM at all. The middle 
level will have words like xget which read 
and write records. The highest level will 
receive and send whole files, creating, open- 
ing and closing them, etc. 

Note: 

(1) The low-level words don't take a full set 
of all possible transmission options. For 
example, minitialize takes advantage of the 
fact that XMODEM specifies no parity, 
eight data bits and one stop bit; usually 
these values will work for other purposes 
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# 9 A: XMODEM. 

V Compute CRC 2-17-a6JJ 
HEX 

: UPDATE-CRC \ xaccauntl byte -- xaccum2 
DATA-BYTE ! 

60 IBIT 40 IBIT 20 IBIT 10 IBIT 
08 IBIT 04 IBIT 02 IBIT 01 IBIT 
DECIMAL 

: GET-CRC \ arecord -- xcrc 

O \ Start CRC accumulator 

SWAP 3 * 128 OVER » SWAP DO 

O UPDATE-CRC O UPDATE-CRC ; 
: CRC-BAD? \ xcrc -- f Teat for bad CRC 

ARECORD e 131 ♦ ce 256 • ARECORD 6 132 * CS ♦ <> ; 

\ Don't 3uat fetch the CRC, because of byte-order dependency 



\ Apply each bit 

Test only - compute it 
I CO UPDATE-CRC LOOP 



f bad 



10 A: XMODEM. 

Teat for garbled data 
GARBLED? S xcrc ftimeout 

\ Note: doesn't check for unexpect 

\ do that at higher level. 

TRUE = \ Timed out 

ARECORD e ce <SOH> <> OR 

ARECORD @ 1* Ca ARECORD 

SWAP CRC-BAD? OR ; 



Teat for 
sd block #: 



2-17-86JJ 
bad record 



\ No <SOH> 
2* Ce » 255 <> OR \ Bad compi 



11 A: XMODEM. 

Read n characters (or 
XREAD \, nexpected - 
ARECORD e 133 O FILL 
BTIMEOUT XTIMEOUT 1 
O NCHAR t O SWAP 
C nexpected > O 00 
XTIMEOUT e MREAD 
DUP -1 > IF \ D 
DUP ARECORD 9 I 
I 3 < 1 130 > 

\ Put only thi 
I 1* NCHAR I 
ELSE ( timed out 
LOOP O UPDATE-CRC 



leas if timeout) 
xcrc nread Return CRC, # 

\ Avoid confusion with past 
V Use block timeout on first 
\ Initial CRC accumulator 
\ Read the characters 
CTIMEOUT XTIMEOUT J \ Char, 
id not time out 
<■ C! \ Store the character 
OR IF DROP ELSE UPDATE-CRC 

data bytes into the CRC 
\ Update count of characters 
) DROP LEAVE THEN 
O UPDATE-CRC NCHAR 9 ; 



2-17-86JJ 
read 
data 

time thru 



THEN 



2-17-a6JJ 
Flag Osgood, l=eof, 2=err 
AND IF \ End of file 



IF \ Bad record 



# 12 a: XMODEM. 

\ Check the received record 
: XCHECK \ xcrc nread -- nflag 
DUP 1 = ARECORD S CS <EOT> =■ 

DROP DROP 1 \ Return result 
ELSE \ Regular record 

OVER OVER 133 < C timeout? ) GARBLED? 

DROP DROP 2 \ Return result 
ELSE \ Good record 

DROP DROP O \ Result 
THEN THEN ; 

\ Handy words for testing 

CREATE DATA 133 ALLOT DATA ARECORD I \ Set up I/O area 
: XGET < -- ) 133 XREAD DUP . XCHECK . ; \ Print n, flag 
: ACK <ACK> MWRITE : : NAK XPURGE <NAK> MWRITE ; 

\ To start, use 67 MWRITE (decimal) 
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also. We want to make the words easy to 
use for getting in quickly and doing a job. 
But what happens when other options are 
needed? The central question is how to 
expand the software library in a graceful, 
upwardly compatible way. 

One approach is to define another word, 
loaded with stack arguments for all the 
options, and then redefine minitialize in 
terms of it. Another approach is to define 
an argument-communication area for 

MINITIALIZE, and let it default to values 
which cause minitialize to behave the same 
unless the programmer does something with 
the new word. Either way allows upwardly 
compatible inclusion of new options, even 
ones not thought of in advance. 

(2) It's okay to use temporary storage areas 
(variables, here). The library uses a re- 
entrant system instead of ordinary vari- 
ables, but variables are all right for now. 

(3) How should routines handle errors? 
They must not print error messages, be- 
cause they may be used when no terminal or 
at least no person is available. So they must 
signal whatever called them, so that the 
higher-level, application-oriented logic can 
decide on appropriate action. 

Routines can pass an error flag to the 
stack. But exhaustive error reporting would 
make routines too cumbersome for quick 
and easy use. For example, minitialize 
could make all kinds of reports, depending 
on what status information was returned by 
the particular operating system or port. 

So we took the easy approach and had 
minitialize throw the status and error infor- 
mation away. Later, it could be generalized 
with a new word as explained above, or by 
use of an error-communication area, just a 
place where routines dump whatever they 
want to report, and don't change otherwise. 
Higher-level words which call the routine 
can, if they care, first clear the error area to 
null (impossible) values, then check it later 
to see what happened. But the user of 
minitialize, who doesn't need to know 
about any of this, still has an easy and 
convenient word for ordinary uses. 

Some errors fit naturally at higher levels, 
and should not be handled by low-level 
routines. For example, the word XCHECK 
does test whether a block number and its 
ones complement correspond, but it should 
not test whether the block number is the 
expected one. If it did, it would need to 
keep track of what record the application 



program was expecting and would have 
more complicated arguments. 

Discussion — Forth Marketing 

Screen 1 includes code to compile this 
software on the PC/Forth system men- 
tioned above. In fact, I developed this 
XMODEM implementation to run on this 
LMI Forth, choosing it among many com- 
petent systems because it had target com- 
pilation and other support for the particu- 
lar chip I was using — support which would 
have taken weeks to write from scratch. 

This example illustrates an important 
aspect of the sometimes-troubled relation- 
ship between public-domain and propri- 
etary Forth systems. Publication and soft- 
ware development often have different 
requirements. 

For publication, while work in any sys- 
tem is welcome, it can be helpful to stand- 
ardize on a publication language when 
possible. A large coding example will need a 
few words outside of the Forth standard, as 
we saw with key? vs. tterminal here; and 
some published papers will want to deal 
with internals. It would be helpful to have a 
common base to talk from. 

It wouldn't be fair to standardize on the 
system of one vendor, excluding all the 
others. Nor would it be wise to give one 
company such control over public dis- 
course. Also, the publication language 
should have source code available and 
permit publication of parts of that code for 
teaching examples or in order to discuss 
modifications. Even if permission may be 
available it presents practical problems, 
such as the fact that you may not know 
specifically what to ask for until having 
already done the work, and then you do not 
know how long it would take to get a 
response. Using a public-domain publica- 
tion language avoids these problems. 

But vendors have lost sales due to the 
availability of free Forth systems. If they 
get hurt, much of the future development 
of Forth won't get done. What seems to be 
happening is that we have passed the time 
when a Forth system by itself, with yet 
another competent editor, assembler and 
even target compiler, is the heart of a 
product. What counts more is the support 
of particular application-oriented tasks that 
certain users want to do. Potential users 
often complain about having to write from 
scratch, in Forth, tools which could have 
been available off the shelf if they used C. 
The need is there. 



It is difficult to define these markets, 
however. When users are asked what they 
would want in Forth, they request vastly 
different and often incompatible applica- 
tion routines, tools or improvements. It 
seems that the future is in discovering 
application-oriented niche markets for 
which particular vendors can provide solid, 
effective support. 
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On-Line Documentation 



* «\ 79 , 



John J. Wavrik 
Solatia Beach, California 

The best form of documentation for a 
Forth application is the source code. Some 
Forth systems provide a word locate (or 
VIEW) so that the phrase locate word will 
show the screen on which word has been 
defined. It is implemented by extending the 
headers of dictionary entries to include the 
block number on which the word was defined 
(and, on some systems, a file identifier). 

The LOCATE word itself can be defined in 
a system-independent way. It is assumed 
that each header has been equipped with a 
"screen field" in addition to the usual 
name, link, code and parameter fields. SFA 
will denote the address of the screen field 
for the entry at hand. 

Please refer to Figure One. The constant 
WALL marks the boundary between the 
words which are compiled prior to locate 
(those which may not have the additional 
field) and those compiled subsequently. 
Several system-dependent words must be 
loaded before this: 

KB? ( sfa — t = defined 
from keyboard ) 

The stored block number for a keyboard 
entry will be either or -1 on most systems. 

cfa>sfa ( cfa — sfa ) 

show-screen ( sfa — ) 

This word will typically just list the 
screen. The user may choose to also make 
the screen available for editing. 

save-environment 

restore-environment 

The locate word will use a block buffer 
and change the contents of one or more 
system variables. If desired, locate can be 
made to function transparently and restore 
the contents of the buffers, etc. 

locate is a word best supplied with the 
Forth system. Its ex post facto installation 
requires modification of the system word(s) 
responsible for making headers, and so a 
knowledge of the (system-dependent) pro- 
cess by which this takes place. Some ex- 
amples will clarify the nature of the task, fig- 
FORTH mandates a word create which 
produces headers. More recent Forth stan- 
dards (Forth-79 and Forth-83) regard the 
manner in which headers are produced (and 
even the configuration of the header) to be 
implementation dependent. Information 
about the making of headers must be ob- 
tained by examinarion of the source code for 
the system, if it is available, or by decompila- 



tion. The standard defining words :, code, 
CONSTANT and VARIABLE should be decom- 
piled to identify the word responsible for 
making the header. In some systems, this 
word is an orphan (i.e., a word without a 
name). It will have to be decompiled using 
its absolute code address. 

fig-FORTH 

fig-FORTH is a public-domain version of 
Forth distributed by the Forth Interest 
Group starting in 1979. Its wide availability 
for a variety of processors made it a de 
facto standard. 

fig-FORTH uses the word create to 
produce new headers. (The behavior of this 
word is different than that in the Forth-79 
and Forth-83 Standards.) The definition of 
create begins: 

: CREATE -FIND IF DROP . . . 

The installation of locate is shown in 
Figure Two. When reading from the key- 
board, BLK contains zero. We do not restore 
the environment after locate. 

Forth-79 Systems: 
MMS-FORTH v. 2.4 

In this system from Miller Microcom- 
puter Services head, is the word responsible 
for making headers (this word was an 
orphan in MMS-FORTH v. 2.0). See Figure 
Three-b. For this system, all name fields are 
four bytes. The new field is eight bytes 
before the code field. When the system 
reads from the keyboard, blk contains 
zero. Here we completely restore the envir- 
onment after locate (Figure Three-c). 

In this system, data about the two buffers 
(numbered zero and one) is stored in an 
array buffdata. The first two bytes of n 
BUFFOATA contain the number of the block 
iurrently in buffer n. The next byte indi- 
cates the order of referencing (two indicates 
the next buffer to be loaded). The remain- 
ing byte is the update byte (one if the block 
is marked, zero otherwise). SCR is a variable 
containing the number of the last screen 
listed or edited. All of this information is 
saved. To return blocks to the original 
buffers, we first identify the buffer 
containing the screen just listed by locate. 
We force the next block to be loaded in this 
buffer. We reload the block originally in 
this buffer. We restore all the buffdata 
information. 

This example indicates what could be 
required to restore the total environment. It 
is more common to restore the environment 
only partially. If, in the midst of editing, 



LOCATE is used to check a definition, it is 
possible to ensure that the current editing 
block is restored to memory (but not in the 
original buffer and without restoring the 
update flag), as in Figure Three-d. 

Forth-79 Systems: 
MVP-FORTH 

The Forth available from Mountain View 
Press uses create to make headers (Figures 
Four-a and Four-b). This system stores full 
names, as in fig-FORTH, and it uses the 
fig-FORTH nomenclature for accessing the 
fields in a header. When the system reads 
from the keyboard, blk contains zero. We 
will make no attempt to restore the environ- 
ment after locate. Listing the screen will 
automatically make it the current screen for 
editing (Figure Four-c). 

Forth With a File System: 

Kitt Peak VAX-Forth (ll-NOV-82) 

Here, < builds is the word responsible 
for making headers. The definition of this 
word begins: 

: < BUILDS 7ALIGN LATEST , ... 

7ALIGN forces the dictionary pointer to 
the next longword boundary. Notice that 
Kitt Peak places the link field first, before 
the parameter field. This leads to the code 
in Figure Five-b. 

Kitt Peak VAX-Forth uses the file system 
of the underlying operating system. Files 
which are being used are assigned positions 
in a file descriptor block table containing 
the file name, number of blocks, and status 
flags for each file, lun is a variable holding 
the logical unit number (position in the 
table) of the currently active file, blk con- 
tains the screen number of the current block 
within the current file. Both the logical unit 
number and the block number are saved 
(Figure Five-c). 

BLK is -I when the system reads from the 
keyboard. We save and restore only the 
current file. Kitt Peak's file loading word lf 
can be used to load a file. Its normal action 
is to make the file to be loaded the current 
file, load the file starling at block zero, 
close the file and restore the previous file. 
LOCATE requires that any file that has been 
used to define new words remain open. This 
necessitates that lf be modified not to close 
files and that both lf and LOAD be modified 
to set a file's flags so that the file cannot be 
closed. The redefinitions can be found in 
Figure Five-d. The only other change is that 
THEN must be replaced by endif in locate. 
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FIER 



FIG-Forth for the Compaq, 

IBM-PC, and compatibles. $35 

Operates under DOS 2.0 or later, 
uses standard DOS files. 

Full-screen editor uses 16 x 64 
format. Editor Help screen can be 
called up using a single keystroke. 

Source Included for the editor and 
other utilities. 

Save capability allows storing Forth 
with all currently defined words 
onto disk as a .COM file. 

Definitions are provided to allow 
beginners to use Starting Forth 
as an introductory text. 

Source code Is available as an 
option 



A Metacompiler on a 

host PC, produces a PROM 
for a target 6303/6803 
Includes source for 6303 
FIG-Forth. Application code 
can be Metacompiled with Forth 
to produce a target application 
PROM. $280 

FIG-Forth in a 2764 PROM 

for the 6303 as produced by 

the above Metacompiler. 
Includes a 6 screen RAM-Disk 
for stand-alone operation. $45 

An all CMOS processor 

board utilizing the 6303. 
Size: 3.93 x 6.75 inches. 
Uses 11-25 volts at 12ma, 
plus current required for 
options. $240 - $360 

Up to 24kb memory: 2kb to 16kb 
RAM, 8k PROM contains Forth. 
Battery backup of RAM with off 
board battery. 

Serial port and up to 40 pins of 
parallel I/O. 

Processor buss available at 
optional header to allow expanded 
capability via user provided 
interface board. 



Micro Computer 
Applications Ltd 

8 Nev«^ield Lane 
Newtown, CT 06470 
203-426-6164 



Foreign ordsrs add $6 shipping and handling 
Connecticut residents add sales tax. 



: WORD. CR 5 SPACES HERE COUNT TYPE ; 

! NOT-FOUND WORD. ." i» not in th» dictionary " | 

s TOO-EflRLY WORD. . " i» d»f in«d b»for» LOCftTE " » 

t KEYBD WORD. ." was defined from the keyboard 



HERE CONSTANT WALL 
: LOCATE 9AVE-ENV I RONMENT FIND 
?DUP 0- IF NOT-FOUND 
DUP WALL U< IF TOO-EARLY 
CFA)8FA DUP KB? IF KEYBD 

SHOW-SCREEN 
RESTORE-ENV I RONMENT | 
Figure One 



ELSE 
DROP ELSE 
DROP ELSE 

THEN THEN THEN 



I XCREATE BLK II , -FIND | 
FIND XCREATE ' CREATE ! 

I CFA>8FA e+ NFA 2- | 

I KB? ( sfa ~ true if keybd > 0- | 

I SHOW-SCREEN ( sfa — ) 9 LIST | 

I 8AVE-ENV I RONMENT | 

I RESTORE-ENV I RONMENT | 

Figure Two — Installation of locate in fig- 
FORTH 



I VARIABLE 
I CONSTANT 
t CREATE 



CREATE e , I 

HEAD, <con«t«nt-cf«> CF, 

HEAD, <v«riabl»-cfa> CF, 



, LINKLAST t 
LINKLAST ; 



Figure Three-a — Decompilation 



I HEAD, BL WORD DUP Cll 



I XHEAD, BLK » , BL I ( patch into ■Kisting word ) 
FIND XHEAD, ' HEAD, ! 

Figure Three-b — Partial definition of 
MMS's HEAD, 



I CFA>SFA 8 - I 

I KB? ( afa ~ true if kaybd ) (I 0« | 

s SHOW-SCREEN ( »fa ~ > 9 LIST | 

1 DARRAY SVDATA VARIABLE 8V8CR 
1 8AVE-ENV I RONMENT 2 DO I BUFFDATA 29 I SVDATA 2! 

LOOP 8CR 9 8V8CR ! | 
I RESTORE-ENV I RONMENT SCR 9 SV8CR 9 SCR ! 

BUFFDATA 9 - IF 1 ELSE 1 THEN 

BUFFDATA 2+ 1 SWAP C! 

DUP BUFFDATA 2+ 2 SWAP C! 

SVDATA 9 DUP 0< NOT IF BLOCK THEN DROP 

2 DO I SVDATA 29 I BUFFDATA 2! LOOP ; 



Figure Three-c 
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I SflVE-ENVIRONMENT SCR 9 SV8CR 



I RESTORE-ENVIRONMENT 8V8CR 9 DUP SCR ! BLOCK DROP \ 

Figure Three-d 

I VARIABLE CREATE S ALLOT | 

I CONSTANT CREATE , |CODE ... 

I CODE CREATE SMUDGE HERE DUP S- ! ENTERCODE ) 

Figure Four-a — Decompilation 
i CREATE BL WORD DUP DUP 

I XCREATE BLK O , BL I ( patch into axiating word ) 
FIND XCREATE • CREATE ! 

Figure Four-b — Partial definition of 

MVP's CREATE 

I CFA>SFA S+ NFA 2- | 

J KB? ( Bf« — trua if keybd ) 9 0- j 

I SHOW-SCREEN ( afa ~ ) LIST | 

I SAVE-ENVIRONMENT \ 

I RESTORE-ENVIRONMENT » 

Figure Four-c 



I VARIABLE CONSTANT (CODE ... 
I CONSTANT <BUILD8 , |CODE ... 
I CODE 7EXEC <BUILD8 ' « 



IMMEDIATE 
Figure Five-a — Decompilation 



I X (BUILDS 7ALIGN LUN 9 B, BLK 9 B, 6, B, \ 
FIND X<BUILD8 ' (BUILDS ! 



Figure Five-b — Making headers in Kitt 
Peak's file system 



I CFA>SFA I A + PFA>NFA B - | 

« KB? ( afa ~ trua if kaybd ) 1+ B9 255 - \ 

I SHOW-SCREEN ( afa ~ ) DUP BO LUN ! FILE? !•»■ BO LIST | 

I SAVE-ENVIRONMENT LUN | 

I RESTORE-ENVIRONMENT LUN ! ( 



Figure Five-c 

: "LF LUN >R 1 FTU.BIT OR DOFOPEN ?FILE LUN ! 

CR .LINE LOAD 

LUN FFLAQS DUP DUP FTU.BIT AND 

IF FTU.BIT COM AND ENDIF 

3 COM AND 1 OR SWAP ! <R LUN ! | 
I LF ( LF filanama > QFN "LF % 



I LOAD ( » ~ ) 



LUN © FFLABS DUP 
Figure Five-d 



1 OR SWAP ! LOAD ) 



^ FOR TRS-80 MODELS 1, 3, 4, 4P ^ 
IBM PC/XT, AT&T 6300, ETC. 

THREE TOUGH 

QUESTIONS 

WITH ONE EASY ANSWER: 

1. WHEN IS A COMPUTER 
LANGUAGE NOT A LANGUAGE? 

MMSFORTH includes DOS, 
Assembler and high level 
commands and extraordinary 
utilities, extends to become any 
other language (or application), is 
an Interpreter and a compiler, and 
is remarkably fast and compact! 

2. WHICH SOFTWARE RUNS THE 
SAME DISKS IN IBM PC AND 
TRS-80 MODEL 47 

MMSFORTH disks run on those 
and Compaq, and TRS-80 Model 
3, and Tandy 1200, and TRS-80 
Model 1, and AT&T 6300, etc., with 
your choice of formats up to 200K 
single-sided or 400K double-sided! 

3. WHO OFFERS SOURCE CODE 
WITH ITS LANGUAGE, 
UTILITIES, DATABASE, WORD 
PROCESSOR AND 
COMMUNICATIONS 
SOFTWARE? 

Nearly all MMSFORTH software 
includes source code. 




mm 



All the software 
your computer may ever need. 

The total software environment for 
IBM PC/XT, TRS-80 Model 1, 3, 4 
and close friends. 

• Personal License (required): 

MMSFORTH V2.4 Syitsm DItk $179.95 

(TRS-80 Mod«! t requfres lowefcaae, DDEN, 1 4jHrBck drive.) 

• Personal License (additional modules); 

FORTHCOM csmmunleatiDiis module .... $ 49.K 

UTILITIES 49.95 

GAMES 39.95 

EXPERT-2 expert system S9.95 

DATAHAHDLER S9.95 

OATAHANOLER-PLUS (PC only, 128K req.) 99.95 

FORTHWRITE word processor 99.95 

•Corporate Site License 
Extensions (ram $1,000 

• Bulk Distribution . . . from $500/50 uniu. 
•Some recommended Forth books: 

STARTING FORTH (programming) 19.95 

THINKING FORTH (technique) 15.95 

BEGINNING FORTH (re K^MSFORTH) . . . 16.95 
SMpping/ltandling & tax extra. No returns on software. 

Ask your dealer to show you the world of 
MMSFORTH, or request our free brochure. 

MILLER MICROCOMPUTER SERVICES 
61 Lake Shore Road, Natick, MA 01760 
(617)653-6136 
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Eighth Annual 

Forth National Convention 

November 21-22, 1986 

The Doubletree Hotel at Santa Clara Trade & Convention Center 
Great America Parkway and Tasman Drive, Santa Clara, California 95050 

Conference Program 
Forth Engines Research 

Learn about the latest advances in Forth hardware and software 
from the creators and designers of the modem Forth engines. 

Demonstrations • New Products • Tutorials • Chapter Activities 

Forth Exhibits 

Convention activities start Friday, November 21, at 12 noon. 

Convention preregistration $15 Conference and Exhibit Hours 

Registration at the door $20 Friday Nov. 21st 12 noon — 6 p.m. 

Banquet Saturday 7 p.m. $35 Saturday Nov. 22nd 9 a.m. — 5 p.m. 

Special Convention room rates available at Doubletree Hotel, Santa Clara. 

Telephone direct to Doubletree reservations by calling 800 528-0444 or 408 986-0700. 
Telex reservation number is 668-309DTI. Request special Forth Interest Group rates. 

Yes! I will attend the Forth Convention. 

Number of pre-registered admissions X $15 $ 

Number of banquet tickets X $35 

Yes! I want to join FIG and receive Forth Dimensions ($30 US, $43 foreign) 

TOTAL CHECK TO FIG $ 

Name 

Address 

Company 

City State Zip 

Phone ( ) 

Return to Forth Interest Group, P. O. Box 8231, San Jose, CA 95155 • 408 277-0668 
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Forth Resources via Modem 



Gary Smith 
Little Rock, Arkansas 

Daily more individuals are joining the 
Forth community, and they bring a need for 
information. Fortunately, most have 
modems and supporting telecommunica- 
tions software. For at the same time, more 
Forth information than ever before is avail- 
able on private and vendor-supported elec- 
tronic bulletin boards, and also on some 
electronic information services like Compu- 
Serve' and BIX^. 



The following information is intended to 
bridge the gap that presently exists between 
the user in need and the resource waiting to 
serve. I am satisfied that I have not listed all 
possible resources and in the dynamic world 
being discussed here, there are certain to be 
changes. If readers help to supply 
additional information, or pose specific 
questions about electronic sources of Forth- 
related information, this feature can be 
updated as required. Just write to Forth 
Dimensions in a letter separate from any 
other FIG business; and be sure to include 



your electronic address, if you have one! 

My very sincere thanks to Jerry Shifrin of 
the East Coast Forth Board for his help in 
compiling and verifying much of the 
information published here. His board is 
included in the list, and is truly one of the 
best of the listed resources. 

All that follows was accurate (or reason- 
ably so) at the time this article was written. 
The author. Forth Dimensions and the 
Forth Interest Group assume no respon- 
sibility for any omissions, deletions or 
errors. 



BULLETIN BOARDS 



Name/Provider Phone No. 
The FIG Tree 415/538-3580 



Thousand Oaks 805/492-5472 
Technical BBS 

East Coast Forth 703/442-8695 
Board 



The Forth Source 2 1 5/630-9 1 49 



LMI BBS 



Correct Software 



The WELL 



213/306-3530 



415/332-6106 



Hours 

24 hours 
7 days/wk. 



24 hours 
7 days/wk. 

24 hours 
7 days/wk. 



2pm-8am EST 

24 hrs. on weekend 



24 hrs. 
7 days/wk. 



Baud/Protocol 

300 

7 bits, even parity 
parity 



300,1200,2400 
8, 1, none 



300 



6pm-9am PST 300,1200,2400 
24 hrs. on weekend 8, 1, none 



300,1200 



300,1200,2400 



Comments 

CommuniTree BBS 
Messages only. 

Lots of info. Type 2 CRs to begin. 
Files supported. 



Registration req., 

but free. Very full service. 

Much from others ported here. 

Jon Day (sysop) 
Forth conf., but no 
up/down load of files. 

Wes Meier BBS 
Support to users by 
Laboratory Microsystems. Others 
NOT restricted from use. 

Currently down. 

Non-users of Correct products 

send $15.00 for registration to: 

Rt. 1, Box 140 

Black Hawk, SD 57718 

UNIX system conference 
**NOTE: Use lower case! 
Gateway to USENET via GO TELE 
then choose #13. Have VISA/MC 
ready and type newuser (lower) 
Mike Ham is Forth Guru here. 



Computer Language 415/957-9370 



24 hrs. 
7 days/wk. 



300,1200 



FIDO BBS 

Extensive message base. Many files. 



Volume VIII, No. 2 



25 



FORTH Dimensions 



polyFORTHGETS 
YOUR PROGRAM 
FROM CONCEPT 
TO REAIITY 
4T0 10 TIMES 
FASTER 




THE ONLY INTEGRATED SOFTWARE 
DEVELOPMENT PACKAGE DESIGNED 
FOR REAL-TIME APPUCATtONS 

If you're a real-time software developer, 
polyl^ORTH can be your best ally in 
getting your program up and running 
on time. In foct, on the average, you 
w\i develop a program 4 to 10 times 
foster ttion witti troditionol progrom- 
ming languages. 

polyFORTH shortens development 
time by making the best use of your 
time. There ore no long waits white you 
lood editors, compilers, assemblers, and 
other tools, no long waits while they 
run— because everything you need is 
In single, easy-to-use, 100% resident 
system. Using potyFORTH, you take o 
raw idea to fast, compiled code in 
seconds— and then test It interactively. 

polyFORTH has everything you need 
to develop real-time applications: fost 
multi-tasking, multi-user OS; FORTH 
compiler, interpreters, and assemblers; 
editor and utilities; and over 400 primi- 
tives and debugging aids. With its unique 
modular structure, potyFORTH even 
helps you test and debug custom hard- 
ware interactively, and it is avoiloble for 
most 8, 16. and 32-bit computers. 

FORTH, Inc. also provides its customers 
with such professional support services 
as custom application programming, 
polyFORTH programming courses, and 
the FORTH, Inc. "Hotline: 

For more intormation and a free 
broctiure, contoct FORTH, Inc. todoy. 
FORTH, Inc., Ill N. Sepulveda Blvd., 
Manhatton Beach, CA 90266, Phone 
(213)372-«493. 




.FORTH. Inc, 



COMBINE THE 
RAW POWER OF FORTH 
WITH THE CONVENIENCE 
OF CONVENTIONAL LANGUAGES 

HSy 
/FORTH 

Why HS/FORTH? Not for speed 
alone, although it is twice as fast as 
other full memory Forths, with near 
assembly language performance 
when optimized. Not even because 
it gives MANY more functions per 
byte than any other Forth. Not be- 
cause you can run all DOS com- 
mands plus COM and EXE programs 
from within HS/FORTH. Not be- 
cause you can single step, trace, de- 
compile &dissassemble. Notforthe 
complete syntax checking 8086/ 
8087/80186 assembler & optimizer. 
Nor for the fast 9 digit software float- 
ing point or lightning 18 digit 8087 
math paclc. Not for the half mega- 
byte LINEAR address space for 
quick access arrays. Not for com- 
plete music, sound effects & graph- 
ics support. Nor the efficient string 
functions. Not for unrivaled disk flex- 
ibility — including traditional Forth 
screens (sectored or in files) or free 
format files, all with full screen edi- 
tors. Not even because I/O is as 
easy, but far more powerful, than 
even Basic. Just redirect the charac- 
ter input and/ or output stream any- 
where — display, keyboard, printer 
or com port, file, or even a memory 
buffer You could even transfer con- 
trol of your entire computer to a 
terminal thousands of miles away 
with a simple >COM <COM pair 
Even though a few of these reasons 
might be sufficient, the real reason 
is that we don't avoid the objections 
to Forth — WE ELIMINATE THEM! 

Public domain products may be 
cheap; but your time isn't. Don't 
shortchange yourself. Use the best. 
Use it now! 

HS/FORTH, complete system: $395. 
with "FORTH; A Text & Reference" 
by Kelly and Spies, Prentice-Hall 
and "The HS/FORTH Supplement" 
by Kelly and Callahan 



Visa 



Mastercard 



HARVARD 
SOFTWORKS 

PO BOX 69 
SPRINGBORO, OH 45066 
(513) 748-0390 



Information Systems 

CompuServe (Call 800-848-8990 for infor- 
mation.) CompuServe features three con- 
ferences with extensive Forth coverage. 
Summaries are as follows: 

"CLM Conference" Similar to The 
WELL and Computer Language's own 
BBS, and operated by Computer Language 
magazine. DL-7 is the Forth library. 

Go CLM at the ! prompt. 

"Computer Solutions, Inc." Emphasis 
on CSI products MacForth and MultiForth, 
but also lots of goodies and discussion for 
the general Forth crowd. DL-6 is the Forth 
library. 

Go PSG-4 or Go FORTH at the I 
prompt. 

"Dr. Dobb's Journal" This is the newest 
entry and is not yet as active as the previous 
two. With Ray Duncan and Michael Ham 
as sysops, that will change! DL-6 is the 
Forth library. 

Go DDJFOR at the ! prompt. 

The Special Interest Groups for the 
Model 100 and Commodore also have some 
excellent machine-specific Forth items. 
Commodore has Blazin' Forth (a public- 
domain Forth-83 implementation) and 
M-lOO has a pubUc-domain Forth that 
supports Model lOOs using the Chipmunk 
drive. 



BIX (Call 800-227-2983 for information.) 
BYTE Information Exchange is BYTE 
magazine's conference system. One of the 
hundred or so sections is the Forth con- 
ference with Phil Wasson as sysop. This is a 
good source for hot-breaking news. There 
is a separate conference area for files. 

JOIN FORTH at the : prompt. 

There is also considerable Forth discus- 
sion in appropriate conferences such as 
4TH.GEN.LANGS but it must be sought 
out. 



References 

1. CompuServe 

5000 Arlington Centre Blvd. 

Columbus, OH 43220 

(or inquire at your local dealer) 

2. BYTE Information Exchange 
70 Main Street 
Peterborough, NH 03458 
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Forth Source Formatter 



John Konopka 
Mitaka Shi, Japan 

It is considered good form in any com- 
puter language to keep one's source code 
neatly formatted. There are various recom- 
mendations about when to indent, when to 
start a new line, etc. The problem with this 
is that it takes too much effort. It's like 
asking a teenager to keep his room clean: 
nice in theory, but difficult to implement. 
The problem is accentuated for Forth pro- 
grammers editing existing source who are 
constrained to add code to the fixed size of 
one screen. While we don't yet have robots 
which will clean our rooms for us, we do 
have a robot which can make source code 
legible: the computer. 

The program presented here will take the 
most compact, confusing source code as 
input and will turn out a cleanly formatted 
listing with new Unes for every colon defini- 
tion and proper indenting for structured 
constructs. A fill algorithm is used to pre- 
vent words from running off the right edge 
of the page. Parameters are available to 
adjust the width and length of the listing to 
any printer or terminal. Line feeds are 
counted so that form feeds can be generated 
at appropriate intervals. 

In operation, the program works similar- 
ly to a word processor. Instead of adding 
"dot commands" to the source to cause 
various actions, special Forth words are 
interpreted as commands to automatically 
cause formatting of the text. The code for 
the main loop is in screen #7. It parses one 
word of text, then checks if this is a special 
word. If it is, then some formatting occurs; 
if not, the word is simply typed. To avoid 
storing strings of text and doing string 
comparisons, find is used to get one word 
of source then convert this to an address. 
This address is compared against the stored 
addresses by the word ?? when checking for 
special words. Rather than assume anything 
about what find does to a string or where it 
leaves it, the value of >in is saved before 
invoking find and then is restored in type-it 
before parsing the word again with word. 

Screen #2 contains the parameters con- 
trolling the dimensions of the listing. The 
constants line-size and max-lines control 
the width and page length respectively. By 
changing these, you can match the listing to 
your printer or screen size. The constant 
offset determines how far the margin is 
moved whenever an indent occurs. A value 
of three seems good, but you might want to 
use two or even one if you work with a very 
narrow page. Variable column is the count- 



er containing the current character distance 
from the left edge of the page. Variable tab 
is the left margin measured in spaces from 
the left edge of the page. Variable lines 
counts the number of lines typed since the 
last form feed. 

The arrays of stored addresses are held in 
screen #3. An array is created for each 
action desired. For example, IF and do both 
require an indent and a new Une, so they are 
placed in the array called ins. If you define 
new branching words you can add them to 
one of these arrays. The first integer in the 
array says how many addresses are in the 
array. 

INDENT, outdent and NEW-LINE (defined 
in screen #4) move the left margin in the 
fashion suggested by their names. Two 
other special formatting words are defined 
in screen #6. These are type-to- and type- 
to-end-of-line. The first emits words until 
it encounters the character it is given on the 
stack. It is used to list out a series of words 
such as those between quotes or paren- 
theses. The second emits text until > in is an 
integer multiple of 64. Its purpose is to list 
comments set off by a backslash. This 



second word is an exception in that it types 
directly out of the text buffer and it does 
not check string length before typing. Both 
of these words list text without moving the 
margin, even though the typed string con- 
tains words such as DO, loop, if, then, etc. 

Two other words, CR? and type-it 
(screens #4 and #5 respectively), are used to 
send all text to the output device (with the 
one exception noted above), cr? performs a 
carriage return and line feed only when 
needed, avoiding blank lines in the output. 
It also counts the number of line feeds 
emitted and emits a form feed when the 
number of lines exceeds the value in con- 
stant max-lines. type-it restores > in from 
temporary storage in ix and then parses a 
string with WORD. It compares the length of 
each word to be typed with the remaining 
space on the line, then invokes or? if there 
is insufficient room to type the word. It's 
possible to type off the right edge of the 
page if there is still insufficient room to type 
the word even after invoking CR7. This can 
happen with deeply nested if else then 
clauses and long names. 



Screen #2 
1 \ F+L 



Variables and Constants 



2 VARIABLE COLUMN 

3 VARIABLE TAB 

4 VARIABLE #LINES 

5 VARIABLE FND 
6 

7 VARIABLE IX 



\ Current column pointer. 

\ Position of left margin. 

\ Count of lines typed since last FF. 

\ Flag indicating currently parsed word was 

\ found to be a special formatting word. 

\ Temporary storage of value of >IN. 



9 79 CONSTANT LINE-SIZE 

10 65 CONSTANT MAX-LINES 

3 CONSTANT OFFSET 

34 CONSTANT A" 

41 CONSTANT RPAREN 



1 1 
1 2 
1 3 
1 4 

15 FIND \ CONSTANT BSLASH 

16 FIND ( CONSTANT PAREN 



\ Column width of output device. 
\ Lines per page of output device. 
\ Size of incJentation in columns. 
\ ASCII value of double quote. 
\ ASCII value of right parenthesis. 



Screen #3 

1 \ F+L Arrays of pointers to formatting words 

2 CREATE QUOTES 2 , FIND " , FIND 
3 

4 CREATE STARTS 2 , FIND : , FIND CODE 

5 

FIND ; , FIND NEXT, 



6 CREATE ENDS 
7 

8 CREATE OUTS 
9 
10 

1 1 CREATE INS 3 
1 2 

1 3 CREATE IN+OUTS 4 
1 4 
1 5 
1 6 



FIND UNTIL 
FIND THEN 



FIND IF 



FIND ELSE 
FIND DOES> 



FIND LOOP 
FIND REPEAT 

FIND DO 

FIND WHILE 
FIND ;C0DE 



FIND END-CODE 
FIND +LOOP 

FIND BEGIN 



Volume VIU, No. 2 



27 



FORTH Dimensions 



All the parts needed to make the 

SMALLEST 
PROGRAMMABLE 
FORTH SYSTEM: 




& 

+ 5V (9 mA, typical @ 2 MHz) 
TTL Serial In 
TTL Serial Out 
Ground 



$50 covers price of parts and manual 
in singles, $20 covers cost of chip alone 
in 10,000 quantity. $20 gold piece (not 
included) shown covering chip to illus- 
trate actual size. 

The F68HC1 1 features: 2 Serial Chan- 
nels, 5 Ports, 8 Channel 8-bit A/D, major 
timer counter subsystem, Pulse 
Accumulator, Watchdog Timer, Com 
puter Operating Properly (COP) Moni 
tor, 512 bytes EEPROM, 256 bytes 
RAM, 8K byte ROM with FORTH-83 
Standard implementation. 

Availability: F68HC1 1 Production units 
with Max-FORTH™ in internal ROM avail 
able 40/86. Volume quantity available 
10/87. X68HC11 emulator with Max- 
FORTH™ in external ROM available 
now. NMIX-0022 68HC1 1 Development 
System boards available now: $290.00. 

New Micros, Inc. 

808 Dalworth 
Grand Prairie, TX 75050 
(214) 642-5494 



NEW Mcnos rc. 

806 DALWOmW 
OWOPWHE TIXAS 7B060 
214/642-5494 



Text interpretation is halted when the 
value of >IN exceeds 1023, indicating that 
all the text from the screen has been used. 
You can stop the listing on other conditions 
by modifying the word done? in screen #5. 

This program is not infallible. It is de- 
signed to format "normal" source code. If 
given source with special words in unusual 
contexts, it will produce unusual results. 
Unpaired parentheses or quotes are the 
most troublesome. Using it on screen #3, 
for example, will cause unanticipated re- 
sults. However, used judiciously, it should 
be a very helpful tool for you. I find it 
useful to help me understand the flow of 



code, particularly when there are nested if 
ELSE THEN constructs. Because every colon 
definition is placed on a new line, this 
program is good for finding those small 
definitions that sometimes get tucked in the 
corner of a screen. This code is also very 
useful for tracking down mistakes, as a 
missing or redundant word such as then or 
LOOP causes things to skew unexpectedly. In 
valid code, every addition to tab should be 
matched by a subtraction from tab so that ; 
will fall in the same column as :. If an excess 
of OUTDENT CEills tries to move the margin 
off the left edge of the page, then tab is 
clamped at zero and bell is invoked. 



Screen #4 
F+L 



CR7 



CR? INDENT OUTDENT NEW-LINE 

Perform a carriage return (maybe) and form feed (maybe). 
Don't do CR on new lines. This avoids blanlc lines. 

\ Legitimate CR ? 
\ Do CR, need a FF ? 
\ Do FF 
\ Count lines 
\ Reset column pointer. 



COLUMN @ TAB @ > 
IF CR #LINES @ MAX-LINES 

IF SFF #LINES ! 

ELSE 1 #LINES +! 

THEN COLUMN ! THEN ; 



9 
10 
1 1 

12 \ 

13 : 
14 

15 \ 

16 : 



\ n 



Indent by constant OFFSET times n. 



: INDENT CR? OFFSET * TAB +! ; 

n Move margin left OFFSET times n. Don't move off page. 

OUTDENT CR? TAB @ SWAP OFFSET * - DUP 0< 
IF BELL THEN MAX TAB ! ; 

Reset left margin and invo)te carriage return test. 

NEW-LINE TAB ! CR? ; 



\ 



\ 



Screen 
1 \ 
2 
3 
4 
5 
6 : 
7 

8 \ 

9 : 
1 

1 1 
1 2 

13 \ 
1 4 : 

15 \ 

16 : 



#5 

F+L DONE? PARSE TYPE-IT SFF 

fl Checlc for end of screen. 

DONE? >IN @ 1023 >= ; 

Place next word at HERE ready for typing. 

PARSE IX @ >IN ! BL WORD DROP ; 

Type one word, first do CR if no room on this line. 

<TYPE> COLUMN ^ TAB @ < IF TAB @ COLUMN @ - SPACES TAB @ 

COLUMN ! THEN HERE COUNT 1+ DUP COLUMN @ + LINE-SIZE > 
IF CR? TAB @ SPACES TAB ? COLUMN ! THEN DUP 
COLUMN +! TYPE -1 FND ! ; 

TYPE-IT PARSE <TYPE> ; 

Emit a form feed. 

SFF 12 EMIT ; 



Screen #6 

1 \ F+L 

2 \ X y 

3 : ?? 
4 

5 
6 
7 



?? F+L-INIT TYPE-TO- TYPE-TO-END-OF-LINE 

X fl Flag true if x found in array at address y. 

SWAP DUP SWAP la DO 2 + DUP @ 4 PICK = 
IF SWAP 1 + SWAP LEAVE THEN LOOP DROP : 



9 
10 
1 1 
1 2 
1 3 
14 
15 
16 



\ n m p List bloclc n. Save BLK and >IN, restore later. 

: F+L-INIT BLK @ >IN @ ROT BLK ! >IN ! 1 fSfLINES ! 
TAB ! COLUMN ! ." Screen #" BLK @ . CR ; 

\ n Type text till next occurence of n. 

: TYPE-TO- CR? TYPE-IT WORD C? 1+ HERE C! BL HERE DUP C@ 

1+ + C! <TYPE> CR? ; 
\ Type comment line, round up >IN. 

: TYPE-TO-END-OF-LINE CR? TYPE-IT BLK @ BLOCK >IN @ + > IN @ 63 
COM AND 64 + DUP >R >IN @ - -TRAILING TYPE CR? R> >IN ! ; 
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Screen #1 














1 


\ F+L END 














2 


\ n Formatted listing of 


screen #n. 




3 


: F+L F+L-INIT 












4 


BEGIN FND ! 


>IN @ IX ! FIND 








5 


QUOTES ?? 


IF 


A" 


TYPE- 


TO- 




THEN 


6 


DUP PAREN = 


IF 


RPAREN 


TYPE - 


TO- 




THEN 


7 


DUP BSLASH = 


IF 




TYPE- 


TO- 


END-OF-LINE 


THEN 


8 


STARTS ?? 


IF 


NEW-LINE 


TYPE- 


IT 


>IN @ IX ! 




9 








TYPE- 


IT 


2 INDENT 


THEN 


10 


INS ?? 


IF 


1 INDENT 


TYPE- 


IT 


1 INDENT 


THEN 


1 1 


OUTS ?? 


IF 


1 OUTDENT 


TYPE- 


IT 


1 OUTDENT 


THEN 


12 


ENDS ?? 


IF 


2 OUTDENT 


TYPE- 


IT 


CR? 


THEN 


1 3 


IN+OUTS ?? 


IF 


1 OUTDENT 


TYPE- 


IT 


1 INDENT 


THEN 


1 4 


DROP DONE? 


IF 


NEW-LINE 


TYPE- 


IT 


CR SFF 1 ELSE 


THEN 


15 


FND @ NOT 


IF 




TYPE- 


IT 




THEN 


16 


UNTIL >IN ! ELK . 


1 











1 






2 : EXAMPLE XI X2 = IF Y2 Y3 AND ELSE X3 IF \ 


DO Z10 IF X3 TRUE 


3 Z10 ELSE ERROR THEN THEN ; : TEST 1 XI ! 


Std Val) EXAMPLE : 


4 : FINAL ( Run Experiment) INIT-ADC TURN-ON-TESTER EXAMPLE ; 


5 






6 
7 






8 
9 






10 






1 1 






1 2 






1 3 






1 4 






1 5 






16 








Source code before formatting. 




Screen #8 






: EXAMPLE 






XI X2 = 






IF 






Y2 


Y3 AND 




ELSE 






X3 








IF 






\ DO Z10 IF X3 TRUE 






Z1 






ELSE 






ERROR 






THEN 




THEN 






t 

: TEST 






1 XI ! 






( Std Val) 




EXAMPLE 






: FINAL 






( Run Experiment) 




INIT-ADC 


TURN-ON-TESTER EXAMPLE 






Source code after formatting. 
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MasterFORTH 



FORTH-83 STANDARD 

• • 6809 Systems available for 

FLEX disk su stems $150 

0S9/6809 $150 

• • 680x0 Systems available for 

MACINTOSH $125 

CP/M-68K $150 

• • tF0RTH/20 for 68020 
Single Board Computer 

Disk based development system 
under 0S9/68K . . . $290 

EpROM set for complete stand- 
alone SBC $390 

• • Forth Model Librarg - List 
handler, spreadsheet. Automatic 
structure charts . . . each . $40 

• Target compilers . 6809,6801 , 
6303, 680x0, 8088, Z80 , 6502 



Talbot Microsystems 
1927 Curtis Ave 
Redondo Beach 

CA 90278 
(213) 376-9941 



68020 SBC, 5 1/4" floppy size 
board with 2MB RAM, 4 x 64K 
EpROM sockets, 4 RS232 ports, 
Centronics parallel port, timer, 
battery backed date /time, 
interface to 2 5 1 /4" floppies 
and a S AS I interface to 2 

Winchester disks $2750 

68881 fit pt option $500 

0S9 multitask&user OS. . $350 

FASTI benchmarks 
speeds are 
2 x a VAX780, 10 x an IBM PC 
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Dual-CFA Definitions 




Mike Elola 
San Jose, California 

Decomposing functions is a critical part 
of Forth programming. Dual-CFA defini- 
tions provide the benefits of decomposed 
functions in situations where decomposi- 
tion would not be possible normally. Be- 
sides requiring two CFAs, this kind of 
functional decomposition is implemented in 
reverse of the normal dictionary order. 
(Normally, Forth requires a bottom-up 
ordering of definitions — child definitions 
are compiled ahead of the parent defini- 
tions that reference them.) 

By first exploring more conventional 
Forth programming techniques, various 
issues will emerge that showcase the advant- 
ages of dual-CFA decomposition. 



Illustrative Example 

Many dual-CFA definitions could be 
replaced with similar definitions that use 
vectored execution. Unfortunately, the use 
of execution vectors can negate certain 
advantages of normal Forth decomposition. 

Suppose that you have revectored type to 
route its output to the printer. A pause is 
desired to allow users to insert another 
sheet of paper, so you define the following 
word: 

: FEED-PRINTER ( — ) 

CR . " Insert new sheet. Press any key to 
continue." 

KEY DROP ; 

When run, the message is typed at the 
printer rather than displayed at the user ter- 
minal. TYPE is called by (.") which is compiled 
by ." within the definition of feed-printer. 

The source of this problem may be the 
decomposition itself. The revectored ver- 
sion of TYPE shows distinct I/O redirection 
behavior. In normal development, the en- 
largement of type's function would be 
implemented in a new and separate defini- 
tion incorporating type. Then, higher-level 
words such as feed-printer could engage 
the correct version of type upon compila- 
tion. There would be no possible chance for 
erroneous, surprise behavior. 

Including the function of output redirec- 
tion within TYPE integrates more functional- 
ity into the word than was originally intend- 
ed. This prevents a more complete factoring 
of these related but distinct functions. As 
such, TYPE is a poorly decomposed 
function. Because of the use of a vector. 



EMIT 



CR 



CR'S 



I Child I- 



-^1 Parent 



Child 



Parent 



Dictionary sequence for standard colon definitions. 



CR 



ITERATOR: 



CR'S 



I Child I- 



Parent 



Parent 
Child 



Dictionary sequence that includes dual-CFA definitions. 
Figure One 



less consideration than usual is given to the 
decomposition involved. (This is something 
to stay on guard for when execution vectors 
are used in an application.) 

Compensatory code can be formatted to 
solve the problems associated with this 
example. For instance, feed-printer can 
buffer the contents of the vector variable, 
reset it to a value that causes output to the 
screen, write the message, then reinitialize 
the original vector value. 

However, such remedies add complexity 
to the task of programming and increase 
the chance of programming error. When 
the behavior of a word must be variable, 
extra code is required each time it is used to 
ensure that the correct behavior will be 
selected when it is run. Ultimately, a heavy 
price is paid when compiling words with 
variable (loosely-coupled) actions. 

This example is not presented to suggest 
that vectored execution is never advantage- 
ous. The run-time flexibility of vectored 
execution is justification enough for its use. 
But when the desired behavior can be selec- 
ted at compile time, a better programming 
solution is possible. 



Preferred Forth Style 

Forth is at its best when variable-behavior 
definitions are avoided. Functions have to 
be well decomposed when fixed-behavior 
words are used exclusively. Together, such 
words impart hardiness to an application by 
eliminating dependence on the current 
environment. 

As an extensible programming language, 
Forth can exhibit a wide range of functional- 
ity: with each new word added, its functional- 
ity is extended. In this way. Forth can provide 



a wide range of functions to better deal with a 
wide range of programming problems. If the 
extensions are fixed-behavior words. Forth 
offers superior ease of programming as well. 

A Forth programming philosophy aimed at 
memory compactness, brevity of expression 
and ease of use is realized when words in 
higher memory consistently integrate more 
functionality than those located in lower 
memory. Lower-level words should exhibit 
decreasing functional scope. All words should 
perform single, fixed behaviors. 

To achieve this, each new higher-level defi- 
nition should consolidate more functionality. 
This way, each word in a common execution 
path represents an increment of progress 
toward the overall application function. Pro- 
gress toward the ultimate goal that is not 
incremental may create problems and usually 
indicates incomplete decomposition. 

Programs developed in this way exhibit 
the following characteristics: 

1 . Compactness of compiled code 

2. Fewer conditional phrases 

3. Single behaviors per word 

The following three sections explore the 
effectiveness of other, more conventional tech- 
niques that in some ways comply or do not 
comply with this programming philosophy. 



Deferred Definitions 

Normally, the behavior of a deferred word 
is not intended to be variable. Unanticipated 
behavior is only possible when deferred 
words are incorrectly initialized. Once in- 
itialized, deferred words should provide the 
same benefits as fixed-behavior words. 
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To ascertain that one word represents 
uniformly increasing functionality relative 
to others, it is necessary to examine its 
relation to other words along the same 
execution path. (It is not relevant simply to 
compare a word's physical location with 
that of its parents.) Consequently, deferred 
words and dual-CFA words can both be 
used effectively to create a sequence of 
words where each subsequent one consoli- 
dates slightly more functionality. 



Vectored Definitions 

Frequently, vectored definitions are em- 
ployed to create words with variable be- 
haviors. As such, their use should be 
avoided if at all possible. The first example 
given (feed-printer) helped demonstrate 
the problems that arise when vectored defi- 
nitions disguise poor decomposition. Still 
other problems are directly associated with 
the use of vectored execution (as well as 
with other variable-behavior definitions). 

While vectored definitions can execute 
rapidly, they also create additional work. 
An effort must be made to maintain the 
correct "current" value of a vector, par- 
ticularly when it is dynamically changing. 
This usually takes the form of "housekeep- 
ing" initializations and finalizations with 
each use of the vectored word. The extra 
code can obscure the underlying algorithm. 

Another problem with vectored defini- 
tions is increased vulnerability to error — 
particularly when one revectoring word 
calls another. Unless a stack is used to help 
maintain the correct value of the execution 
vector, the higher-level word has no guar- 
antee that its initializations of vectors re- 
main in effect after other words are called. 

Still, memory compactness is sometimes 
served best through vectored execution. 
Redirection of input or output is a good 
example of this. Revectoring emit is more 
memory efficient than generating custom 
versions of emit, cr, space and type for 
every possible output device. 

While vectoring enables run-time flexi- 
bility and seems to be the shortest path to a 
coded solution, the support required to deal 
with the added complexity must be con- 
sidered. A variable-behavior emit may 
create the need for fixed-behavior versions 
of output words just to make programming 
easier. For instance, if there is a need for 
FEED-PRINTER, then it alone is justification 
for SCREEN-TYPE, a fixed-bchavior word. 
Ultimately, a mix of fixed- and variable- 
behavior words may prove most effective in 
situations like this. 



Other Variable-Behavior Definitions 

The behavior-binding function of the 
Forth compiler is rendered inadequate when- 
ever v£U"iable word behaviors are allowed. 
This is true however the variable behaviors 
are ultimately selected. Vectored definitions 
are one form of variable-behavior words. 
Other kinds of words are also used to im- 
plement variable behaviors. 

A way to select one of several actions is 
through the use of a conditional phrase. 
Consider the following definition for type: 

: type ( add count — ) 
OUT-DEV @ IF ( printer code. . . ) 
ELSE ( screen code. .. ) then ; 



The behavior of this word is under the 
control of the variable OUT-dev. Now, 
before and after each use of type the 
programmer must decide how out-dev 
should be initialized and finalized. Note 
that the same burdens of environmental 
maintenance befall the use of this definition 
as would a vectored definition. Only now, 
OUT-DEV is the environmental variable re- 
quiring extra care, instead of a vector- 
containing variable. 

The following is an attempt to improve 
on the previous version: 



: type ( add count dev — ) 
IF ( printer code . . . ) 
else ( screen code. .. ) then ; 



Now the problems with maintaining the 
current environment disappear because the 
behavior-selection mechanism is one of 
type's input parameters. The drawbacks 
that remain are the extra execution over- 
head and memory overhead for the condi- 
tional phrase, as well as the extra code 
necessary to generate the additional stack 
item consumed with every call to type. All 
of these drawbacks could be avoided if a 
fixed-behavior, screen-oriented type were 
available (assuming that it could be selected 
at compile time). 

(When run-time flexibility is needed, 
there is often no choice but to use a 
variable-behavior word. Such is the case 
when user-selectable actions are desired. 
The Forth interpreter manages to 
accomplish this admirably, since it is very 
compact and employs very few 
conditionals.) 




PORTABLE 
POWER 

WITH 

MasterFORTH 



Whether you program 
on the Macintosh, the 
IBM PC, an Apple li ser- 
ies, a CP/M system, or the 

Commodore 64, your ^ 

program will run un- = =="^5 
changed on all the rest. ~ — ^ ' = tm 
If you w/rite for yourself, 
MasterFORTH will protect 
your investment. If you write 
forothers, itwillexpandyour 
marketplace. 

Forth is interactive - 
you have immediate feed- 
back as you program, every 
step of the way. Forth is 

fast, too, and you can 
use its built-in as- 
sembler to make it 
even faster. Master- 
FORTH's relocatable utilities and 
headerless code let you pack a lot 
more program into your memory. The 
resident debugger lets you decom- 
pile, breakpoint and trace your way 
through most programming prob- 
lems. A string package, file interface 
and full screen editor are all standard 
features. And the optional target com- 
piler lets you optimize your applica- 
tion for virtually any programming 
environment. 

The package exactly matches Mas- 
ierlng Forth (Brady, 1 984) and meets 
all provisions of the Forth-83 Standard. 




CP/M 



MasterFORTH standard package $125 

(Commodore 64 with graphics) $100 

Extensions 

Floating Point $60 

Graphics (selected systems) $60 

Module relocator(with utility sources). . $60 
TAGS (Target Applic. Generation System) - 
MasterFORTH, target compiler and 
relocator $495 

Publications S Application Models 

Printed source listings (each) $35 

Forth-83 International Standard $15 

Model Library, Volumes 1-3 (each) $40 



(213) 821-4340 




MICROMOTION 



8726 S, Sepulveda Bl., #A1 71 
Los Angeles, CA 90045 



Volume VIII, No. 2 



31 



FORTH Dimensions 





betwe^^n either 
tlie versatile 
(igFORTH model 
or the 
popular 
79 Standard 
Each versior^ is 
available ror a 
number of pop 
ular computer 
systems 
including 
the IBM PC, 
XT and AT 
(or compa- 
tibles), the 
TRS-80 
Model I, III 
and ')/4P, 
or any 
computer system 
running CP/M 
(version 2 x) 
or CP/M Plus 
(version 3 x) 
What 5 more. 
SOT A doesn t 
require you 
to enter into 





ms-Bo 

©I'M 



long as your 
applications 
programs do 
Viot offer the 
|» end user 
>' access to 
the basic FORTH 
system, you are 
to make as 
many copies 
of the com- 
piled FORTH 
system as 
you please 
and 
distribute 
them as 
you Vl^sh 
FORTH 
from 
SOTA is the 
1=® FORTH of 
1^™ choice for both 
iTS the novice and 
experienced 
programmer 
Make It your 
choice now' 
Order your 
copy today 



any avrtv^rd 

When jrou order from SOTA, both the fig 
model and 79 standard come complete 
with the following eztra features at no 
additional charge: 

• full featured string handling • assembler • 
screen editor • floating point • double word 
eHtension set • relocating loader • beginner s 
tutorial • comprehensiue programmer's guide 

• BKhaustiue reference manual • unparalleled 

• technical support • source listings • 
• unbeatable price • 



ORDER FORM 



GENTLEMEN: Rush me my order! 

□ Enclosed is my □ check □ money-order 

□ Please bill my □ V ISA □ MasterCard 1 

for $89 95 I 

Please send me; □ 79 Standard FORTH □ figrORTH model 
for the 

□ IBM PC DXT OAT (and compatibles) 

□ IRS-80 Model I □ Mode! Ill Q Model 4 □ Model IP 

□ CP/M Version 2 x D CP/M Plus (Version 3 x) 

For CP/M versions please note 5 1/4' formats only and 
please specifv computer type 



OflmE: 

STREET: 

CITY/TOWn: 

STHTE: 

CARD TYPE:_ 
CARD nO: 



_ZIP: 

.EXPIRY:. 



SIGnflTUHE: 



ORDER 
TODAY 



213-lDBD Broughton Street 
IVancauver. British Columbia 
I Canada • V6G 2flB 



Order bu Mail or Phone (St^m 

(604) 688-5009 * L^, 



Stotc of the >4i t since 1981 




Computin g Sy stems Limited 



IBM, THS-80 aruj CP/tt ir^xtitiwA trsdi-merkB of Internotional 
BusitvBS tiachinp Corpoiatiofw Radio Sheck and Digjtat R^seaich 



Dual-CFA Definitions 

Deferred definitions, vectored definitions 
and other variable-behavior definitions 
have been considered so far. However, 
dual-CFA definitions have yet to be 
separately presented. For the purpose of 
discussion, suppose that a definition of 
ITERATOR: already exists, and that it is a 
defining word that can be used to produce 
dual-CFA definitions. The first CFA com- 
piled points at an iteration function that 
can be the parent to many similar words, 
such as CR'S and spaces: 

ITERATOR: CR'S CR ; 
ITERATOR: SPACES SPACE ; 

An equivalent colon definition for CR'S is: 

: CR'S DO CR LOOP ; 

These definitions will help illustrate the 
merits of dual-CFA definitions in terms of the 
programming philosophy already presented. 

The dual-CFA definitions are obviously 
much shorter. This is possible because the 
common code for CR'S and spaces has been 
factored into the parent defining word 

ITERATOR:. 

The compactness of the compiled code 
for CR'S and spaces is also an indication 
that these definitions are rooted in a consis- 
tent philosophy of decomposition. 

Since all behaviors have been fixed at 
compile time, no intermediary variables are 
required. This makes the use of CR'S and 
SPACES as straightforward as can be; there 
are none of the added complexities de- 
scribed for vectored and variable-behavior 
definitions. 

To illustrate that the dual-CFA imple- 
mentation represents more incremental 
decomposition, the child-to-parent execu- 
tion sequence of the dual-CFA definition is: 

CR — > CR'S — > ITERATOR: 

The child-to-parent execution sequence 
of the corresponding colon definition is: 

CR ~ > CR'S 



The dual-CFA definition exhibits more 
incremental decomposition (three call lev- 
els, opposed to two). 

These execution sequences may not be 
understood without further explanation. 
Although ITERATOR: is the parent of CR'S, its 
run-time code is not callable except through 
the child definition. The invocation of the 
child word CR'S remains the starting point 



for the execution sequence. Its first CFA 
calls ITERATOR: which in turn calls the 
second CFA of CR'S, which executes the 
code specifically compiled for CR'S. This 
should become clearer when shown in 
dictionary order as in Figure One. 

Note also that the resulting dictionary 
order is consistent: words in higher memory 
integrate more functionaUty than those in 
lower memory. For example, CR'S belongs 
at a higher position than iterator: because 
it integrates more functionality, iterator: is 
also positioned correctly — ahead of both 
CR'S and spaces — so that it can be a 
reuseable behavior. This ordering of defini- 
tions corresponds to a decomposition of 
functions that can best leverage one's pro- 
gramming effort. 

One disadvantage associated with the 
dual-CFA implementation is the challenge 
posed when trying to formulate the parent 
defining word. The second CFA of the child 
will always be the top item on the stack 
when the parent code executes. For this and 
other reasons, the parent definitions are 
more difficult to formulate than normal 
definitions. 



Implementation Details 

Providing an easy means for compiling 
dual-CFA definitions is another concern. 
The Forth resource best suited to the task is 
the create does> combination. 

Listing One shows the necessary support 
words needed for both Forth-79 and 
Forth-83. These words can be used to 
create a dual-CFA defining word such as 
the one suggested in the previous examples: 



ITERATOR: 

CREATE DOCOL , COMPILE-DEF 
DOES> 

SWAP ( cfaz #times — ) 

DO DUP EXECUTE LOOP DROP ; 



Other support words must be added to 
allow recursion within the parent portion of 
dual-CFA definitions. Still other support 
words, or altogether different implementa- 
tions, are needed to support multi-level, 
dual-CFA decomposition. 

Other du£d-CFA defining words I have 
found useful include: 



TREE-TRAVERSER: (with TREE-BALANCE, 
TREE-SCAN and TREE-PRINT), EXEC-COUNIi, 
CALL^TRACE:, and RELOCATABLE:. 
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: COMPILE-DEF ( Forth-83 ) 
ICSP SMUDGE [COMPILE] ] ; 

: COMPILE-DEF ( Forth-79 ) 
SP® CSP I 
SMUDGE [COMPILE) ) ; 

: COMPILE-DEF @ CONSTANT DOCOL 

[ Forth-83 ) 

: COMPILE-DEF CFA ® CONSTANT DOCOL 

( Forth-79 ) 
Listing One — Dual-CFA Support Words 



Conclusions 

The Forth language suggests a philosophy 
of decomposition that rewards well those 
who find ways to conform with it. Com- 
pliance involves compiling fixed-behavior 
words. Each new word is defined to con- 
solidate slightly more functionality than the 
previous one in the same execution path. 

Dual-CFA definitions can uphold this 
philosophy when other kinds of definitions 
do not. Particularly in those situations 
where a deviation in dictionary sequence is 
required, this technique reaps all the bene- 
fits normally reserved for Forth words 
implemented in the standard child-before- 
parent sequence. 

The Forth language generates enthusiasm 
among programmers by offering the possi- 
bility of very streamlined code. Considering 
the prospects for dual-CFA decomposition, 
this enthusiasm can be expected to increase. 



(Letters continued from page 8) 



Mr. Apra's suggestion for experiments with 
conditional structures as a source of pro- 
gramming exercises for students. 

Forth offers a unique choice: one can 
choose programming languages that incor- 
porate a large number of "features" (which 
can't be changed and which may be hard to 
use or to remember) or one can choose a 
programming language which is (concep- 
tually) simple and allows the user to incor- 
porate a wide variety of features on his 
own. Understanding is a powerful 
"handle" which I would not want to trade 
for "features." I echo Mr. Apra's "Keep it 
simple," but add the words "... in 
concept." 

Sincerely yours, 

John J. Wavrik 

U.C. San Diego, California 
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NGS FORTH 

A FAST FOFTH, 

OPTIMIZED FOR THE IBM 
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Fort Wayne Chapter 

Monthly, 2nd Tues., 7 p.m. 
IPFW Campus 
Rm. 138, Neff Hall 
Call Blair MacDermid 
219/749-2042 

• IOWA 



St. Louis Chapter 

Monthly, 1st Jties., 7 p.m. 
Thornhill Branch Library 
Contact Robert Washam 
91 Weis Dr. 
ElhsviUe, MO 63011 

• NEVADA 



U.S. 



• ALABAMA 

Huntsville FIG Chapter 

Call Tom Konantz 
205/881-6483 

• ALASKA 

Kodiak Area Chapter 

Call Horace Simmons 
907/486-5049 

• ARIZONA 

Phoenix Chapter 

Call Dennis L. Wilson 
602/956-7678 

lUcson Chapter 

Twice Monthly, 

2nd & 4th Sun., 2 p.m. 

Flexible Hybrid Systems 

2030 E. Broadway #206 

CaU John C. Mead 

602/323-9763 



• ARKANSAS 

Central Arkansas Chapter 

Twice Monthly, 2nd Sat., 2p.m. & 
4th Wed., 7 p.m. 
Call Gary Smith 
501/227-7817 

• CALIFORNIA 

Los Angeles Chapter 

Monthly, 4th Sat., 10 a.m. 
Hawthorne Public Library 
12700 S. Grevillea Ave. 
Call Phillip Wasson 
213/649-1428 

Monterey/Salinas Chapter 

Call Bud Devins 
408/633-3253 

Orange County Chapter 

Monthly, 4th Wed., 7 p.m. 
Fullerton Savings 
Tiilbert & Brookhurst 

Fountain Valley 
Monthly, 1st Wed., 7 p.m. 
Mercury Savings 
Beach Blvd. & Eddington 
Huntington Beach 
Call Noshir Jesung 
714/842-3032 

San Diego Chapter 

Weekly, Thurs., 12 noon 
Call Guy KeUy 
619/268-3100 ext. 4784 

Sacramento Chapter 

Monthly, 4th Wed., 7 p.m. 
1798-59th St., Room A 
Call Tom Ghormley 
916/444-7775 



Bay Area Chapter 

Silicon Valley Chapter 

Monthly, 4th Sat. 

FORML 10 a.m.. Fig 1 p.m. 

H-P Auditorium 

Wolfe Rd. & Pruneridge, 

Cupertino 

CaU John Hall 415/532-1115 
or call the FIG Hotline: 
408/277-0668 

Stockton Chapter 

Call Doug Dillon 
209/931-2448 

• COLORADO 

Denver Chapter 

Monthly, 1st Mon., 7 p.m. 
Cliff King 
303/693-3413 

• CONNECTICUT 
Central Connecticut Chapter 
Call Charles Krajewski 
203/344-9996 

• FLORIDA 
Orlando Chapter 

Every two weeks. Wed., 8 p.m. 
Call Herman B. Gibson 
305/855-4790 

Southeast Florida Chapter 

Monthly, Thurs., p.m. 
Coconut Grove area 
Call John Forsberg 
305/252-0108 

Tbmpa Bay Chapter 

Monthly, 1st. Wed., p.m. 
Call Terry McNay 
813/725-1245 

• GEORGIA 
Atlanta Chapter 

3rd Tuesday each month, 6:30 p.m. 
Computone Cottilion Road 
Call Ron Skehon 
404/393-8764 

• ILLINOIS 
Cache Forth Chapter 

Call Clyde W. Phillips, Jr. 
Oak Park 
312/386-3147 

Central Illinois Chapter 

Urbana 

Call Sidney Bowhill 
217/333-4150 

Fox Valley Chapter 

Call Samuel J. Cook 
312/879-3242 

Rockwell Chicago Chapter 

Call Gerard Kusiolek 
312/885-8092 

• INDIANA 

Central Indiana Chapter 

Monthly, 3rd Sat., 10 a.m. 
Call John Oglesby 
317/353-3929 



Iowa City Chapter 
Monthly, 4th TUes. 
Engineering Bldg., Rm. 2128 
University of Iowa 
Call Robert Benedict 
319/337-7853 

Central Iowa FIG Chapter 

Call Rodrick A. Eldridge 
515/294-5659 

Fairfield FIG Chapter 

Monthly, 4th day, 8:15 p.m. 
Call Gurdy Leete 
515/472-7077 

• KANSAS 

Wichita Chapter (FIGPAC) 

Monthly, 3rd Wed., 7 p.m. 
Wilbur E. Walker Co. 
532 Market 
Wichita, KS 
Call Arne Flones 
316/267-8852 

• LOUISIANA 

New Orleans Chapter 

Call Darryl C. Olivier 
504/899-8922 

• MASSACHUSETTS 

Boston Chapter 

Monthly, 1st Wed. 
Mitre Corp. Cafeteria 
Bedford, MA 
Call Bob Demrow 
617/688-5661 after 7 p.m. 

• MICHIGAN 

Detroit Chapter 

Monthly, 4th Wed. 
Call Tom Chrapkiewicz 
313/562-8506 

• MINNESOTA 
MNFIG Chapter 

Even Month, 1st Mon., 7:30 p.m. 
Odd Month, 1st Sat., 9:30 a.m. 
Vincent Hall Univ. of MN 
Minneapolis, MN 
Call Fred Olson 
612/588-9532 

• MISSOURI 

Kansas City Chapter 

Monthly, 4th TUes., 7 p.m. 
Midwest Research Institute 
MAG Conference Center 
Call Linus Orth 
913/236-9189 



Southern Nevada Chapter 

Call Gerald Hasty 
702/452-3368 

• NEW HAMPSHIRE 
New Hampshire Chapter 

Monthly, 1st Mon., 6 p.m. 
Armtec Industries 
Shepard Dr., Grenier Field 
Manchester 
Call M. Peschke 
603/774-7762 

• NEW MEXICO 
Albuquerque Chapter 

Monthly, 1st Thurs., 7:30 p.m. 

Physics & Astronomy Bldg. 

Univ. of New Mexico 

Jon Bryan 

Call 505/298-3292 

• NEW YORK 
nG, New York 
Monthly, 2nd Wed., 8 p.m. 
Queens College 

Call Ron Martinez 
212/517-9429 

Rochester Chapter 

Bi-Monthly, 4th Sat., 2 p.m. 
Hutchinson Hall 
Univ. of Rochester 
Call Thea Martin 
716/235-0168 

Rockland County Chapter 

Call Elizabeth Gormley 
Pearl River 
914/735-8967 

Syracuse Chapter 

Monthly, 3rd Wed., 7 p.m. 
Call Henry J. Fay 
315/446-4600 

• OHIO 
Akron Chapter 

Call Thomas Franks 
216/336-3167 
Athens Chapter 
Call Isreal Urieli 
614/594-3731 

Cleveland Chapter 

Call Gary Bergstrom 
216/247-2492 

Cincinatti Chapter 

Call Douglas Bennett 

513/831-0142 

Dayton Chapter 

Twice monthly, 2nd TUes., & 

4th Wed., 6:30 p.m. 

CFC 1 1 W. Monument Ave. 

Suite 612 
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Dayton, OH 

Call Gary M. Granger 

513/849-1483 

• OKLAHOMA 

Central Oklahoma Chapter 

Monthly, 3rd Wed., 7:30 p.m. 
Health Tech. Bldg., OSU Tech. 
Call Larry Somers 
2410 N.W. 49th 
Oklahoma City, OK 73112 

• OREGON 

Greater Oregon Chapter 

Monthly, 2nd Sat., 1 p.m. 
Tektronix Industrial I%rk 
Bldg. 50, Beaverton 
Call Tom Almy 
503/692-2811 



Austin Chapter 

Contact Matt Lawrence 
P.O. Box 180409 
Austin, TX 78718 

DaUas/Ft. Worth 
Metroplex Chapter 

Monthly, 4th Thurs., 7 p.m. 
Call Chuck Durrett 
214/245-1064 

Houston Chapter 

Call Dr. Joseph Baldwin 
713/749-2120 

Periman Basin Chapter 

Call Carl Bryson 

Odessa 

915/337-8994 

• UTAH 

North Oiem ¥IG Chapter 

Contact Ron Tanner 
748 N. 1340 W. 
Orem, UT 84057 

• VERMONT 

Vermont Chapter 

Monthly, 3rd Mon., 7:30 p.m. 
Vergennes Union High School 
Rm. 210, Monkton Rd. 
Vergeimes, VT 
Call Don VanSyckel 
802/388-6698 



• VIRGINIA 

First Forth of Hampton Roads 

Call William Edmonds 
804/898-4099 

Potomac Chapter 

Monthly, 2nd T\ies., 7 p.m. 
Lee Center 

Lee Highway at Lexington St. 
Arlington, VA 
Call Joel Shprentz 
703/860-9260 

Richmond Forth Group 

Monthly, 2nd Wed., 7 p.m. 
154 Business School 
Univ. of Richmond 
Call Donald A. Full 
804/739-3623 



FOREIGN 

• AUSTRALIA 

Melbourne Chapter 

Monthly, 1st Fri., 8 p.m. 
Contact Lance CoUins 
65 Martin Road 
Glen Iris, Victoria 3146 
03/29-2600 

Sydney Chapter 

Monthly, 2nd Fri., 7 p.m. 
John Goodsell Bldg. 
Rm. LG19 

Univ. of New South Wales 
Sydney 

Contact Peter Tregeagle 
10 Binda Rd., Yowie Bay 
02/524-7490 

• BELGIUM 

Belgium Chapter 

Monthly, 4th Wed., 20:00h 
Contact Luk Van Loock 
Lariksdreff 20 
2120 Schoten 
03/658-6343 

Southern Belgium FIG Chapter 

Contact Jean-Marc Bertinchamps 

Rue N. Monnom, 2 

B-6290 Nalinnes 

Belgium 

071/213858 



• CANADA 

Alberta Chapter 

Call Tony Van Muyden 
403/962-2203 

Nova Scotia Chapter 

Contact Howard Harawitz 
227 Ridge Valley Rd. 
Halifax, Nova Scotia B3P2E5 
902/477-3665 



Southern Ontario Chapter 

Quarterly, 1st Sat., 2 p.m. 
General Sciences Bldg., Rm. 312 
McMaster University 
Contact Dr. N. Solntseff 
Unit for Computer Science 
McMaster University 
Hamilton, Ontario L8S4K1 
416/525-9140 ext. 3443 

Toronto FIG Chapter 

Contact John Clark Smith 
P.O. Box 230, Station H 
Toronto, ON M4C5J2 



• COLOMBIA 

Colombia Chapter 

Contact Luis Javier Parra B. 
Aptdo. Aereo 100394 
Bogota 
214-0345 

• ENGLAND 

Forth Interest Group — U.K. 

Monthly, 1st Thurs., 
7p.m., Rm. 408 
Polytechnic of South Bank 
Borough Rd., London 
D.J. Neale 
58 Woodland Way 
Morden, Surry SM4 4DS 

• FRANCE 

French Language Chapter 

Contact Jean-Daniel Dodin 
77 Rue du Cagire 
31100 Toulouse 
(16-61)44.03.06 

• GERMANY 

Hamburg FIG Chapter 

Monthly, 4th Sat., 1500h 
Contact Horst-Gunter Lynsche 
Common Interface Alpha 
Schanzenstrasse 27 
2000 Hamburg 6 

• HOLLAND 

Holland Chapter 

Contact: Adrieian van Roosmalen 
Heusden Houtsestraat 134 
4817 We Breda 
31 76 713104 



FIG des Alpes Chapter 

Contact: Georges Seibel 
19 Rue des Hirondelles 
74000 Annely 
50 57 0280 

• IRELAND 

Irish Chapter 

Contact Hugh Doggs 
Newton School 
Waterford 

051/75757 or 051/74124 

• ITALY 
FIG Italia 

Contact Marco T^usel 
Via Gerolamo Forni 48 
20161 Milano 
02/645-8688 

• JAPAN 
Japan Chapter 

Contact Toshi Inoue 
Dept. of Mineral Dev. Eng. 
University of Tokyo 
7-3-1 Hongo, Bunkyo 113 
812-2111 ext. 7073 

• NORWAY 
Bergen Chapter 

Kjell Birger Faeraas 
Hallskaret 28 
Ulset 

+ 47-5-187784 

• REPUBLIC OF CHINA 
R.O.C. 

Contact Ching-T^ng Tzeng 
P.O. Box 28 
Lung-Tkn, Taiwan 325 

• SWEDEN 

Swedish Chapter 

Hans Lindstrom 
Gothenburg 
+ 46-31-166794 

• SWITZERLAND 

Swiss Chapter 

Contact Max Hugelshofer 

ERNI & Co., Elektro-Industrie 

Stationsstrasse 

8306 Bruttisellen 

01/833-3333 

SPECIAL GROUPS 

Apple Corps Forth Users 
Chapter 

1\vice Monthly, 1st & 

3rd TUes., 7:30 p.m. 

1515 Sloat Boulevard, #2 

San Francisco, CA 

Call Robert Dudley Ackerman 

415/626-6295 

Baton Rouge Atari Chapter 

Call Chris Zielewski 
504/292-1910 

nGGRAPH 

Call Howard Pearlmutter 
408/425-8700 



• PENNSYLVANIA 

Philadelphia Chapter 

Monthly, 4th Sat., 10 a.m. 
Drexel University, Stratton Hall 
Call Melanie Hoag or Simon Edkins 
215/895-2628 

• TENNESSEE 

East Tennessee Chapter 
Monthly, 2nd Hie., 7:30 p.m. 
Sci. Appl. Int'l. Corp., 8th Fl. 
800 Oak Ridge TXimpike, Oak Ridge 
Call Richard Secrist 
615/483-7242 

• TEXAS 



• WISCONSIN 

Lake Superior FIG Chapter 

Monthly, 2nd Fri., 7:30 p.m. 
University of Wisconsin 
Superior 

Call Allen Anway 
715/394-8360 

Milwaukee Area Chapter 

Call Donald H. Kimes 
414/377-0708 

MAD Apple Chapter 

Contact Bill Horzon 
129 S. Yellowstone 
Madison, Wl 53705 
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DESIGNING AND PROGRAMMING 

PERSONAL EXPERT 
SYSTEMS 

CARL TOWNSEND AND DENNIS FEUCHT 
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FORTH 



INTEREST 



GROUP 



Hands-on guidance in teciiniques tliat can be 
used to develop an individualized or expert 
knowledge system using Forth. 



$19.00 

FROM THE FORTH INTEREST GROUP 



FORTH INTEREST GROUP 

p. O. Box 8231 

San Jose, CA 95155 
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